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ON MICRODRIVE 


Microdeal have taken the QL and 
produced an arcade game worthy of the high quality 


graphics the machine is capable of. 


Can you guide Hoppy safely home from 
the spawning grounds across the busy 6 lane 


motorway and the maelstrom of the cascading river to his home safe on the riverbank? 
As your skill increases so does the volume of traffic and the snake and crocodile in the river 
get angrier and angrier whilst the logs get less and less. 


Written in 100% machine code with full colour graphics and sound. Joystick or keyboard 
compatibility this is a must for your software collection. 
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To Micropost 41 Truro Road 
St. Austell Cornwall PL25 5JE . 
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Competition 

There were four outright winners to 
our Categorical Computing competi- 
tion in the May edition — M Gottlieb 
(Edgware, Middx), Ralf Biedermann 
(Langwedel, W Germany), David 
Carlin (Bathgate, W Lothian) and 
Neil Gordon (Hull). They all guessed 
the correct order to be B, C, A, F. 

Nine other entrants had the cor- 
rect attributes but in the wrong 
order. Of these, the first six out of the 
hat were: Jane Litman (Wembley, 
Middx), N Alexander (Margate), V H 
Hashmi (London E17), A M Rees 
(Uckfield, E Sussex), J R D Lehane 
(Aberystwyth, Wales) and M H Hen- 
derson (Biggin Hill, Kent). 

All ten winners will be sent a Com- 
puter One language or utility of their 
choice once they have written to us 
stating which package they want. 


Medicaments! 
Frustration reigns supreme this 
month as despite being visited by ‘Mr 
Medic’ and promised a disk system 
for review, nothing arrived and we 
must again report that the Medic 
system remains somewhat of an enig- 
ma at present. Hopefully something 
will turn up next month. 


QLN 
News and new products recently in- 
troduced onto the QL scene. 


Terminal Emulator 
Could it be the last part of our com- 


munications terminal? Mayhap! 


Satellite Stations II 


The follow-up to our. preview of QL 
communications, plus connection de- 
tails for the Brother TC600. 


Open Channel 


A slight diversion this month with 
your answers to some past questions. 


Next Month 


A look into the future with the con- 
tents of our exciting August edition. 


Graphics On Display 
Recursive curves and other wondrous 
creations are the subject for part two. 


Machine Code Tutorial 
A brief overview of what’s been co- 
vered so far. 


Bookmarks 
Another collection of literary gems 
and other works of excellence. 


Games Programming 
The final part of our intro to low level 
coding brings life to Paladin. 


Sound And Vision 


A double feature investigating the 
QL’s sound and mapping potential. 


Survey & Prize Draw 
Our chance to discover the kind of 


people reading QL User — your 
chance to win one of ten prizes. 


Integrated Accounts 
Sagesoft’s latest accounts package 
bared for scrutiny. 


Articulating With Archive 


The first in this new series of special- 
ist Archive applications deals with 
family trees and other so-called re- 
lational databases. 


Alon the QL 


Making decisions is a pretty subjec- 
tive business at the best of times, but 
try explaining that to your micro. 


QL At School 


Believe it or not, the QL is second 
only to the BBC micro as an educa- 
tional computer. 


‘The Progs’ 


A tear-out-and-insert index for your 
QL manual, plus the second set of 
competition results. 


QL Caverns 


At long last a real game for the QL — 
was it worth the wait? 


Microdrive Exchange 


Send us your drives and we'll fill ’em 
with bootie! 


Instant Access 


Completely updated and revised from 
the last time it was completely up- 
dated and revised. 
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NOW-what the 
Macintosh does in 
monochrome — the 
QL does in colour! 


M-PAINT — an amazing new program from MEDIC gives 
you total freedom to draw, design, sketch or paint. You 
can create any image, from a freehand scribble to 
flowcharts and technical drawings. Thousands of 
different effects, stipples, shadings, using a full palette 
of options, cursor-key or mouse-driven. Runs on the 
standard (unexpanded) Sinclair QL. Easy permanent 
print-outs. M-PAINT brings you complete design 
freedom - in brilliant colour. Order your copy now for 
immediate delivery. 


New M-Paint from Medic Datasystems — £30.00 inc. VAT (cpap 


ee ee ee | 


Please send me copies of MEDIC METROPOLIS on To: Medic Datasystems Limited, 76 Grainger Close, Basingstok 


microdrive at £12.95 ea. inc. VAT, plus £1.00 p&p. NAME Hants RG22 4EA | 
Please send me copies: M-PAINT colour graphics program") san oe 
on microdrive at £30.00 ea. inc. VAT, plus £1.00 p&p. ADDRESS 3 ee 

| | enclose cheque/PO. value£........... (add £1.00 for p&p, ] 
irrespective of number of programs ordered). (Please wake Clea ; iy) Ee 
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“Tm afraid that most of the 
people who ordered and paid 
for QCOM from OE Ltd will 
have lost all their money,” says 
Roy Pendleton, whose 
company — Tandata— has 
acquired rights to, and stocks 
of, the QL comms package. 

And the mood of these OE 
debtors will not be improved by 
news that an ex-director of the 
company is convinced that it 
need not have collapsed, 
blaming its demise on the 
premeditated actions of two 
fellow directors. 

Indeed, the only bright side 
of the affair is that Tandata is 
acquiring a list of QCOM 
orderers from OEF’s receiver 
and will be offering them a 20% 
discount on fresh orders. 

Says Roy Pendleton, “The 
receiver is responsible for OE’s 
debt, and ifhe’s able to realise 
enough money then everybody 
will eventually get their money 
back. I would very much doubt 
if this will happen, because 
there are always preferred 
creditors such as the debenture 
holders Warburtons.” 

Only people who bought by 
credit card can hope for a 
refund — by claiming against 
the card issuers. 

Pentleton explained his 
purchase of QCOM on the 
grounds that, “the QLisa very 
major micro, and likely to have 
significant sales in 1985/6. We 
paid alump sum for QCOM, 
not aroyalty arrangement — 
which shows our great faith in 
the QL.” 

Tandata doesn’t make any of 
its products, and OE’s receiver 
will be manufacturing a few 
units to tide things over for the 
first few weeks. Production will 
then be moved to one of 
Tandata’s regular 
subcontractors in South Wales. 

The only obvious 
uncertainty over the future of 
QCOM is that of BABT 
approval — essential for any 
device which is to be connected 
to the phone system. Approval 


The latest information on the QL and associated products. 


Compiled by Sid Smith. 


was about to be issued when 
the receivers went in, and 
Pendleton is confident it can 
soon be resurrected. 

Although shy about 
revealing the exact price paid 
for QCOM Pendleton confirms 
that the sum was well over 
£100,000. 

“QCOM is crucial for 
correctly placing the QL in the 
business market — and 
Sinclair know that. 'They 
haven’t underwritten the 
purchase price and they aren’t 
subsidising our advertising, 
but they have given us some 
very powerful reassurances 
about market support.” 

According to Pendleton, 
“The original shareholders 
have no role in current 
developments at OE, these 
being in the hands of the 
receiver. However, 
Warburtons have a dual role at 
the moment; they’re OE 
shareholders, but also 
debenture holders, because 
they paid off OE’s bank 
overdraught and therefore 
have a preferential claim on 
any assets of OE that the 
receiver may realise.” 

But it’s precisely the role of 
Warburtons in the OE affair — 
and that of fellow shareholders 
Pulkinghorne Industries — 
about which OE ex-director 
Fred Ansell is perturbed. 

Mr Ansell has said that the 
receiver was sent into OE by 
Warburtons and Pulkinghorne 
in the face of repeated 
assurances by him and his son, 
OE’s ex-Managing Director 
Martin Ansell, that the 
company could trade itself out 
of its debts — which he puts at 
around £276,000. 

Ansell believes that events 
subsequent to the receivership 
have proved his point. The 
QCOM purchase alone, he 
affirms, establishes that OK 
had products sufficiently 
profitable to assure its future. 

Describing the actions of 
Warburtons as “scandalous” 
and “totally and absolutely 
wrong”, a furious Mr Ansell 
claimed, “The only losers in 
this affair are the £276,000 
worth of creditors — who have 
been utterly ignored.” 

Meanwhile, Commpak 
Data’s modem is looking more 
and more like the front-runner 
—we'll be reviewing it next 
month so long as the News 
Editor will part with it. 


Catering to needs you didn’t know you had, comes the RME 3250 — a power surge 
filter with no less than four output sockets. 


Now you can protect not just your microdrives from premature formatting, but 
the disk drive from wiped files, the TV from revolving rasters and still leave a socket 


to prevent a hiccupping printer. 


‘The filter is available from Strong Computer Systems for £36 all inclusive. 


It’s possible that the Sinclair 
portable, due for launch next 
year, will be based on QL 
technology. 

According to Sinclair MD 
Nigel Searle, “The portable 
could have a high degree of 
compatibility with either 
Spectrum or QL software. It 
would obviously be crazy to set 
offona third course.” 

Sir Clive has always said 
that the device will be Z80- 
based and Spectrum- 
compatible, even though this 
undercuts his simultaneous 
assertion that it will alsobea 
“no compromise machine”. In 
the background, meanwhile, a 
low chorus of Sinclair 
spokespeople have compared 
the Spectrum to the perennial 
Apple II, implying that the 
micro will likewise preserve its 
identity through many 
metamorphoses—a concept 
which squares very nicely with 
the Sinclair portable’s code- 
name of Proteus. 

However, Searle told your 
reporter that the Z80 option . 
was still ‘iffy’, and implied that 
a final decision will depend on 
the relative strengths of the 
Spectrum and QL software 
bases — though Sinclair will 
doubtless bear in mind the 
smooth up-grade path offered 


toa QL-derived Proteus 
through other members of the 
68000 family. 

And Searle was adamant 
that the portable would use the 
Sinclair flat TV tube: “That 
display is our key advantage”. 


Sinclair remains bullish about 
the possibility of large QL sales 
abroad, and has begun its 
assault on non-English 
speaking countries with a 
Spanish version of the 
machine. 

Apart from demonstrating 
the purpose of those funny 
letters accessible via the CTRL 
key, the twelve forthcoming 
local language versions of the 
QL (according to Charles 
Cotton, Sinclair’s overseas 
Business Manager), form “the 
cornerstone of Sinclair’s 
programme to create a strong 
presence in professional and 
business computing markets 
throughout the world.” 

Sinclair claims 75% of the 
Spanish market, selling the 
Spectrum, Spectrum+ and 
(even) ZX81 through some 800 
outlets. 

‘Due to shortage of space, User Group _ 
News has been omitted. It will return as 
usual next month. 
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Disk drives are now becoming a standard add-on for the 
QL. and to supply the growing demand a number of companies 
have produced equipment. One of these, Medic Datasystems. 
asked us to assess its product against all the systems currently 
available. To do this we looked at three different areas: price: 
performance and features. 

The price of the Medic interface on its own is £129.95, which 
puts itin the middle of the range. Adding a single drive brings 
the price to £249.95 which seems to be about the average, 
except that Medic supply.a 720k (formatted) 314-inch drive as 
opposed to the more usual 200k ones. 

The table shows that the Medic system with extra memory 
added offers superior performance, especially if the RAM-disk 
facility (included in the Medic free software) is utilised. 

CST and Silicon Express interfaces offer similar timings, while 
those from Quest and MicroPeripherals are rather slow. The 
Quest system also requires the disk operating system to be 
loaded from microdrive. which adds another 10 seconds: 

‘The software features of each system differ greatly. Silicon 
Express has just one extra command, from the Tony Tebby 
Toolkit, while Medic has most of the Toolkit commands and a 
large range of free software. Hardware features also vary 
considerably, Medic being the only system that does not require 
a further expansion board to add extra memory or I/O ports. 

The choice seems to be between Silicon Express or CST, 
and Mcdic., The former are physically smailer than the Medic. 
but Medic has many extras such as built-in RAM disk software 
and an interface for Medic’s forthcoming modem. 


Roger Thomas John Lambert 
TEST RESULTS 1 3 4 
Microdrive 25 6.5 13 167 
Disk systems: 

CST 6 2 7 41 
MEDIC 6 2 5 40 
MEDIC + extra memory 6 2 5 25 
MEDIC without extra memory, 
using free RAM-disk software 0.5 1 * * 
MEDIC + extra memory, using 
free RAM-disk software 0.5 1 2 6 
MicroPeripherals 18 3 12 69 
Silicon Express 7 2 8 36 
Quest 19 35 39 ek 
Notes: | — save 32k code. 2—load 32k code. 3—load Quill program file. 
4—save Quill file, approx 102 pages (3288 words, unpatched). 
For | and 2, directory booted into memory before timings 
taken. 
* Timings for all Psion programs except Quill are similar 
to those shown below. Quill requires extra memory. 
« Quill does not run on Quest without extra RAM. 


Nine performance-raising programs, free with 
every MEDIC disk drive system. 
(Extra memory recommended.) 


M-TRANSFER 


M-DESK Macintosh-type single-key depression user 
interface,for instant program switching and utilities 
selection M-BASE turns Archive into a menu-driven 
database with single-key commands M-ACCOUNTS 
fully integrated sales, purchase, nominal ledgers, and 
stock control M-KEY single-key entry of user-defined 
text in any program M-SPELL spelling checker 
M-MERGE personalised mailshots M-SQUEEZE file 
compression M-BOOT sets up RAM disks in memory 
then automatically loads pre-defined files and programs 
M-TRANSFER microdrive — disk routine. 


xpansion System. 


Order form Please send me the 
MEDIC brochure and 

copies of press reviews, free. 

To order, please tick the items you require. 


All prices include VAT. Add £10 p&p. 
All orders despatched in strict rotation, delivery guaranteed within 28 days. 


Extra memory Complete systems 

MEDIC systemcartridge withextra. 1Mbdisk drive, MEDIC 

memory systemcartridge inc. disk interface, 
64K £99.95 parallel port, integral power supply, 
128K £129.95 all cables 

256K £169.950 +FREESOFTWARE £249.95() 


Disk interface 
(if you already have 


2Mb double disk drive, MEDIC 
systemcartridge inc. disk interface, 


disk drives) £129.95 parallel port, integral power supply, 
Dust cover all cables o 
+ 3 adjustable feet £14.95 + FREE SOFTWARE £399.95 
Disk pack Complete systems + extra 

Ten 3’in disks in rigid plastic memory 

storage box £60.00 Add to complete system 

Modem* price 64K £50.00 
Add to disk interface or complete i aioe 
system price (not sold separately, 512K £20000 O 


since connects through 


systemcartridge) £120.00 


*not yet BT approved 


| enclose cheque/P.O. payable to Medic Datasystems Ltd. in payment for 


= the items ticked above, plus £10 p&p, total £ 
16" Signed ___ as 
Medic Datasystems Limited yA Ss = 
76 Grainger Close, Basingstoke, | ,,,,228¢June 1983 Address ___ - 
Hants RG22 4EA STAND Nos. Telephone 
Telephone 0256 460748 83,84,85 & 90 Sea 


Fe. sheer good looks, superb design and 
high performance there is nothing to touch 
the Sinclair Vision QL colour monitor. 


Developed in conjunction with Sinclair 
Research, this beautifully compact unit with its 
12” non-glare tube, 85 column text display and 
high resolution colour graphics is the perfect 
partner to the Sinclair QL computer. Comes 
complete with lead and connector for instant 
use with the QL. 


Take a closer look and you'll see that it also 
represents amazing value for money. 


You'll find the brilliant Sinclair Vision QL at 


your local dealer, supplied exclusively by DDL. 
The data distribution company with a product 
range that is second to none. 


Ring us on Ascot (0990) 28921 for the name 
of your nearest dealer. 


Then you can call in and see for yourself 
what makes the Sinclair Vision QL colour 
monitor such a well-designed little performer. 


5 King§ Ride Park, 
Ascot, Berks. SL5 8BP 
Tel: O990 2892] 

Telex: 846303 DD LIDG. 


THE NEW FORCE IN DISTRIBUTION 


Back in February we previewed the 
QL’s potential as a communicator. 


With the arrival of Brother’s TC600 


it seemed appropriate to turn 


theory into practise — Adam 


Denning and David Green take up 
the story... 


‘ 


ie te 
| 


The QL is blessed with two RS232 
ports, which should mean it connects 
to almost anything. Reality is a 
different matter, because so many 
manufacturers interpret the ‘RS232 
standard’ in different ways. 

Some of the more popular 
machines people try to connect to the 
QL are made by Brother, such as the 
EP44 and the TC-600. These can be 
used as printers, or in the case of the 
TC-600, as a portable typewriter 
whose contents can later be dumped 


to the QL and re-edited. 

The model 600 (as the instruction 
manual refers to it) is a rather mixed 
bag of potentially useful facilities and 
functions. The latest in a line which 
spans back to the humble, yet crude, 
EP22 electronic typewriter, the 
TC600 can boast a proper typewriter 
keyboard (none of those annoying 
plastic ‘buttons’ for keys) and an 
expanded LCD display — single line 
only, however. 

Asa machine which you can switch 
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on and use straight away, everything 
is fine so long as you’ve selected the 
correct mode (normal), which gives 
standard typewriter operation. 
There are, however, several refine- 
ments (more of these later) making 
use of the display window and permit- 
ting corrections before print-out. The 
big difference here is that no informa- 
tion is stored and once a line has been 
printed it cannot be altered later. 

Most of the key functions in normal 
mode are self explanatory. There are 
the usual tab set and release, cen- 
tring and flush left and right as well 
as justified printing. Added to this 
are some nice touches such as super 
and sub-script and auto-underlining. 
However, all these features are bet- 
ter used within WP mode. 

he .TC600 as a word 
processor is a good ex- 
ample of a machine 
floored by its weakest 
component — the LCD 
display. Considering the 
high print quality (albeit 
at a slow 16 cps), the 
wide range of assorted 
ona WP enhancements and 
the extended storage 
capacity when using the 
optional disk drive, it’s such a pity 
that stored text can only be edited 
one line at a time. Other standard 
WP operations also suffer as you need 
to work out a specific method for 
achieving what would normally be a 
fairly simple procedure (moving 
blocks of text, adding/deleting para 
indents or running text back to the 
previous line). Despite being con- 
siderably improved from the EP22 
and EP44, further development in 
these areas would certainly reap 
rewards. 

As mentioned earlier, and partly 
making up for the above, the TC600 
does have a wide range of set-up 
facilities enabling text to be printed 
out virtually anywhere on the 80- 
column line. Utilising the margin set 


and tab keys it’s possible to whisk 
through a host of different formats in 
any of the justification modes and 
produce a high quality document 
printed in a superb typeface — unfor- 
tunately this is only at its best when 
performed using the thermal paper 
supplied. 

The third TC600 mode (terminal) 
provides the most exciting aspect of 
the machine for QL owners — as an 
RS232 terminal and serial printer. 
Here Brother are to be congratulated 
on producing a printer/terminal that 
communicates freely with the QL 
without requiring additional inter-' 
facing hardware or two years experi- 
ence as a Telecom cable fitter. All the 
settings for standard serial com- 
munication are controlled using 
keyboard commands (no fiddly DIP 
switches here) and within a few 
seconds, QL and Brother files become 
interchangeable. 

To get the two talking to each 
other, we have to alter the connec- 
tions on the standard Sinclair Re- 
search RS232 lead. This has a 6-pin 
BT plug at one end and a standard 
25-pin D male connector at the other. 
The Brother also has a 25-pin D 
connector, but it’s female. This 
means they'll plug into each other 
quite happily (though no communica- 
tion will take place if the standard 
lead is used unchanged). 

To get things going it’s a good idea 
to buy two RS-232 leads from Sinc- 
lair, as the standard one works with 
various other bits of peripheral 
equipment, while the altered one 
won't. 

Three of the wires can remain 
exactly where they are, as these are 
standard on both the QL and the 
Brother. These connections are the 
RxData, TxData and Signal Ground 
lines, on pins 2, 3 and 7. The RxData 
and TxData lines are used for send- 
ing and receiving information. 

Next we need to know whether the 
peripheral is ‘Data Terminal Equip- 


75, 110, 300, 600, 1200 (Baud) full duplex 


Data length 


7- bit +parity, or 8- bit (no parity) 


NONE parity (parity bit is always 1) 


ODD parity 
EVEN parity 


ZERO parity (parity bit is always 0) 


10 bits/character 
SPACE (0) 


MARK (1) 


Data style 


Start of character is the first shift (start bit) from MARK to 


SPACE. If without Line data, it is MARK mode. 


start bit 


data bit (LBSisb;) 
parity bit (MSB in 8-bit data) 


stop bit 


Table 1. Communication parameters for the Brother TC600. 
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ment’ or ‘Data Communication 
Equipment’. If it’s DTE, then it sends 
data out along pin 2, TxData, and 
receives it on pin 3, which is RxData. 
Ifthe peripheral is a DCE, however, it 
sends data out from pin 3, which is 
still called RxData, and receives it on 
pin 2, which remains TxData. In the 
trade, we call this ‘thoroughly confus- 
ing’ (Funny ...I thought we called ita 
cockup — Ed!). 

The RS232 ports on the TC-600 
and EP44 are both configured as 
DTEs, which means that we can 
overcome most of the wiring difficul- 
ties if we use the socket on the QL 
which is configured as a DCE. This is 
SER1. Doing this makes pins 2, 3 and 
7 correct at both ends. 

Avoiding the XON/XOFF hand- 
shaking protocols (please!), the next 
best method uses ‘device drivers’. 
This is done by sending voltages 
along other wires connected to more 
pins on the RS232 connector. It 
sounds fairly trivial, if it wasn’t for 
the fact that no-one seems to be really 
sure which selection of handshake 
lines to provide. Sinclair provides two 
on its QL serial ports, known as ‘Data 
Terminal Ready’ (DTR) and ‘Clear To 
Send’ (CTS). 

The DTR line is used by the DTE 
(who said RS232 terminology was 
confusing?!) to tell the DCE when it is 
ready. If this line is not in a certain 
state (either ON or OFF, depending 
on whether the equipment uses nega- 
tive or positive logic), the DCE will 
not send anything to the DTE. 

The CTS line is used by the DCE to 
tell the DTE when it is ready to 
receive information — in other words, 
when the line is clear to send. It 
almost makes sense, doesn’t it? 

in 4 on the Brother 
machine is ‘RS’, which 
is Japan’s version of 
everyone else’s ‘RTS’ — 
standing for ‘Request to 
send’ — and is an output 
from the Brother, and 
at logic level 1 (ie, ON) 
when the machine is in 
Terminal mode. This 
ee isn’t the standard RTS 
action, though, as it is 
supposed to be ON only when the 
sender wants to send something. As 
the Brother’s RTS is permanently 
ON, and as the QL doesn’t use it, this 
is one pin which we can ignore. 

The next pin worth considering is 
pin 8 on the Brother, which is the 
‘Carrier Detect’ pin. This is related to 
a modem function and sets the line 
to logical 1 when the telephone line 
connected to the modem is holding 
the carrier signal. Unfortunately, 
although the QL is not a modem, the 
Brother expects this line to be ON 
before it will receive anything. 

Now, as we’ve seen that the 
Brother’s pin 4 is always ON, and this 
pin 8 always needs to be ON, we could 
solve our problem by directly con- 


Frame Ground 


2 


Clear to Send 


Data set Ready 


Signal Ground 
External Ready 


5 

6 

7 
0 


2 


[Tao [remo] me 
Fre ne | 
en 


ON: carrier output 
OFF: carrier stop 


————— 


ON: data transmission possible 
OFF: data transmission not possible 


ON: transmission/reception possible at 
connected device 

OFF: transmission/reception not possible 
at connected device 


Provides basic ground potential 


ON: receiving access signal 
OFF: not receiving access signal 


ON: unit preparation completed 
OFF: unit preparation not completed 


necting pin 4 to pin 8. So that’s what 
we'll do. 

The final pin worth looking at is pin 
20 on the Brother, which is normally 
called ‘Data Terminal Ready’, but not 
by Brother. They call it ‘External 
Ready’ (that’s what is so good about 
international standards — no-one fol- 
lows them). This pin is set to logic 1 by 
the Brother when it is ready. 


13 10 7 4 1 


rl 2 — 5 — 
TOOL 13 TOOL 


Figure 1. RS232 pins (a) and wiring details — 
before (b) and after (c). 


Rather than go through all the 
connections again, we'll refer to two 
diagrams. Fig 16 shows the Sinclair 
Research lead as it is supplied, and 
Fig 1c shows what it should look like 
when you have finished with it. 
Now, set up the Brother by moving 
the ‘mode’ switch to ‘TERMINAL’, 
and then press the button marked 
‘MODE’. Up comes a display saying 
‘SET-UP’ followed by a few numbers 


and letters. Move the cursor until it’s. 


under the first number (usually ‘4’), 
and press ‘6’. This sets the baud rate 
to 1200. Now move the cursor right 
one position, and press ‘D’. This sets 
the internal code used by the Brother 
for characters to be just about the 
same as the QL’s. Now we need to 
alter the next letter, which is the 
‘parity’. This parity is a sort of 
double-check, to ensure that data 
really has been sent properly. 
However, we don’t want any of this, 
so press ‘N’. The next number tells 
the Brother how many of the pins on 


Table 2. Important pins on the TC600’s RS232 connector. 


its RS232 interface it should take 
notice of. Press ‘1’ here, as this stands 
for ‘all of them’. Now we can select 
what sort of handshaking we want by 
setting the next setup character to 
‘R’, which causes it to use hardware 
handshaking rather than XON/ 
XOFF. 


he final character in the 
setup determines what 
happens when the 
Brother receives a car- 
riage return or a line 
feed. Set this number to 
‘1’, so that the Brother 
returns its carriage and 


feeds a line when it re- 
ceives a carriage return. 
Now press RETURN. 
The Brother is ready. 

To set up the QL depends on 


whether you're going to use the 
Brother as a printer for the Psion 
programs or as a general purpose 
printer. In the latter case, you simply 
type baud 1200 and press ENTER. 
Whenever you want to print some- 
thing out, you must send it to serlc 
(the ‘c’ tells the QL to convert all 
outgoing line feeds to carriage re- 
turns and vice versa — that’s what 
you want). For example, to copy a file 
called ‘myfile’ on microdrive 1 to the 
printer, type: 
copy_n mdv1_myfile,serlc 
To list a SuperBasic program, you 
must first open a channel to the 
printer: 
open#3,serlc 
and then list the program to your 
chosen channel: 
list#3 
If you want to use the Psion programs 
with the Brother, you must run the 
install_bas program to set up the 
printer drivers in the correct way. 
The Sinclair manuals explain this 
reasonably well, but remember that 
you are using a baud rate of 1200, 
port SER1, and that the end of line 
code is CR. 

So, what advantages are there for 
the QL owner having just forked out 
around £400 (or £575 with portable 
disk drive) for the TC600. Well, as a 
typewriter the machine is fine, but 
expensive, and as a word processor it 
is light years behind the QL/Psion 
combination. However, as an RS232 
terminal and printer for the QL with 
portable typewriting and word pro- 
cessing capabilities thrown in, the 
TC600 represents an excellent prop- 
osition for people on the move. 
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Aslight variation this month, 
as we present your answers 
and comments to past letters 
and articles. Next month, it’s 
back to normal so send your 
letters to: Open Channel, QL 
User, Priory Court, 30-32 
Farringdon Lane, EC1R 3AU. 


ey aT 


Automatic ASCII 


As SuperBasic programs are 
stored on microdrive as just 
ASCII files, itis easy to 
manipulate them. The 
programs are tokenised after 
loading, before they can be 
executed or edited so itis 
possible, for example to write 
direct commands to this file 
and they will be executed when 
you just Load them rather than 
Lrun. You can use this method 
torunaSuperBasic program 
automatically when loaded. 
After loading the program if 
you want to make it autorum 
type: 

OPEN_NEW =3, MDV1_ 
file-name 

PRINT # 3, “RUN” 

LIST #3 

CLOSE #3 
This will write the command 
RUN tothe file, then list the 
program to the file so on 
loading the program it will 
RUN automatically. You can 
write all the commands, 
functions, etc, of SuperBasic in 
this way — even whole 
programs. 
Philip Teakle 
Bristol 


City Success 


I’ve had my QL for nearly a 
year (JM version) and am now 
really getting good value out of 
it. [have concentrated on using 
the Psion software packages 
and have had great success on 
transferring data between 
Abacus and Easel. lama 
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management consultant and 
recently used Easel to make a 
presentation to the main board 
of a City financial group. This 
involved 30 or so graphs, bar 
and pie charts and text 
screens, put together to forma 
90 minute seminar. Both the 
content and the presentation 
method (a 26” TV) were very 
well received. 

My only problem with the 
QL — the left hand shift key 
doesn’t work!! 

Paul Thomas 
Cardiff 


Enigmatic Beep 

I was interested to see Rob 
Miles’ “Sound Experimentor” 
program in the May issue. We 
have been using a similar 
program to try to produce 
‘useful sounds. The trouble is 
that, with 8 arguments, each 
able to take a wide range of 
values, there are something in 
excess of 7E19 combinations 
possible, which makes a 
complete investigation rather 
daunting. Might we suggest 
that QL User should start a 
“Beep Corner”, to which 
readers could contribute 
interesting sounds? We would 
be particularly glad of a door 


creaking, and of a good ‘laser 
gun’! 

Meanwhile here are some of 
our own discoveries. 

BEEP 0,0,20,0,3 —Likea 
ship’s hooter (?) 

BEEP 0,0,30,20,12— Likea 
helicopter 


BEEP 0,0,20,-5000,—200 — 
“Scary music” — we use it for 
the opening of a ‘Haunted 
House’ game 

BEEP 0,0,20,5000,100 — 
Rather jolly little tune (?) 

BEEP 0,0,20,5000,0 — sonar 
The Frayn Family 
Manchester 


Slicing The Cake 


Thave found that ifan array is 
sliced alarge amount of 
memory is used. If for example 
the first program is run, the 
report ‘out of memory’ will be 
given at about the 200th 
repeat (unexpanded RAM). 
With this report the array is 
lost. This can be circumvented 
by assigning the complete 
element to a simple variable 
and then slicing this. Try the 
second program with run 1000, 
it will complete normally. 
Ihave a Canon PW-1080A 
printer. To stop having to 
change the DIP switch settings 
Thave set it to give an auto line 


feed. The printer driver 
program for Easel will then 
need to be changed to stop 
graphs being double spaced, by 
deleting the line feed code at 
position 418 from $0A to $00 
(10 to 0). This can be done by 
reading the driver into an 
array, altering the array and 
then printing to a new file or 
overwriting the existing driver 
file. 
100 REMark FIRST 
PROGRAM 

DIM A$ (800, 100) 
FORX = 1TO800: A$ 
(X) = FILL$ (‘AB’, 50) 
FORX = 1T0O800 
PRINT X!A$(X,1 TO 10); 
A$ (X,12 TO 20) 

END FOR X 


110 
120 


130 
150 


160 


1000 REMark SECOND 
PROGRAM 

1010 DIM A$ (800,100) 

1020 FOR X = 1 TO 800: A$ 
(X) = FILL$ (‘CD’, 50) 

1030 FOR KX = 1T0 800 

1040 A1$ = A$(X) 

1050 PRINT X!A1$ (1 TO 10); 
A1$(12 TO 20) 

1060 END FOR X 

100 REMark ALTER EASEL 

PRINTER DRIVER 

DIM A$ (520) 

OPEN_NEW#4, MDV1_ 

CANON_prt 

OPEN_IN#5, MDV1_ 

gprint_prt 

FOR X = 1T0520: A$ 

(X) = INKEY$ (#5) 

A$ (418) = CHR$ (0) 

FORK =1T0520: 

PRINT#4; A$ (X) 

170 CLOSE#4: CLOSE#5 

DJ Jenkins 

Dursley, Glos. 


ee 
Sinclair Snub 

Ibought my QL in October 
1984 on the understanding 
that during my first year of 


110 
120 


130 
140 


150 
160 


“It claims to be a fifth generation micro!” 


membership of QLUB (at acost 
of £35) I would be entitled to 
receive one free update of each 
of the four QL programs. 
Sinclair Research has now 
gone back on that promise and, 
in effect, has said that the 
updates will now cost me £50. 

In writing to Sinclair I have 
received a rebuff, in that they 
have not dealt with my enquiry 
but merely sent me astandard 
stereotyped letter. 

Iam pursuing the matter by 
writing direct to Sinclair’s MD 
(Mr Searle) but, in the 
meantime, I wonder whether 
any of your readers who 
purchased a QL before 
Sinclair’s “cut-off” date on the 
same understanding as I, have 
received similar treatment. 

G Boxer 
Tintagel, Cornwall 


Worthy Note 


Having recently received the 
new version of Quill I re-read 
your review in the April issue. I 
agree with the reviewer that 
the improvements are 
outstanding. The speed of the 
commands would make it 
worthwhile alone, but being 
able to write quite lengthy 
documents without mdv2_ 
whirring away means I no 
longer have to keep my fingers 
crossed. I don’t think Ihave 
had a corrupted letter in the 
new version. 

One thing in the review that 
doesn’t seem to happen with 
me is when I try to print 
without the Quill cartridge in 
place. I do get the error 
message but it quite happily 
prints out, obviously without 
the special codes for underline 
and so on. 

Ian McRobert 
Peterborough 


Fit Of Peek? 


With reference to a couple of 
peek and poke addresses that 
you have published in the last 
two months: 

Anyone who tried Alan 
Turnball’s poke to turn the 
caps lock on from within a 
program and found it did not 
work should try POKE_W 
163976, 256.It must also be 
pointed out that this disables 
the caps lock button, which can 
be brought back into use by 
POKE_W 163976, 0 and 
brings the QL back into lower 
case. 

David Nowotnik sent ina tip 
on how to display memory. If 
like me you could not get that 
to work either try PRINT 
PEEK_L (163860) -PEEK_L 
(163856) —4096. This will give 
you the exact amount of 
memory you have used in your 
program. Obviously this peek 
can be included during the 
running of a program to givea 
constant readout of memory 
used, and avoid the problems of 
running out of memory, which 
aparently clears out all the 
variables! Returning you back 
to square one to start all over 
again. 

Tim Fuller 
Southampton, 
Hants 


Give It A Plug 

In Psion Probe on p. 17 of the 
May issue of QL User Angus 
Ross raised the problem of QL 
freezes associated with mains 
spikes. Ihave experienced the 
same kind of crash when using 
my QL. The freezes occurred 
most days except Saturday and 
Sunday. The crash times were 
usually, but not necessarily, 
between 8 am and 9am, 11am 
and 12am, 4pmand5 pm. 
There were sometimes periods 
of several minutes when reset 
was followed repeatedly by a 
crash. 

Switching tests with 
equipment in the house failed 
toidentify anything which 
could be associated with a 
crash. The house isina rural 
area and is on the end ofa PME 
line. 

Power International, at the 
address given on p. 14 ofthe 
same issue, were consulted and 
suggested that mains spikes 
were a likely cause. I 
purchased The Plug from P & P 
Micro Distributors Ltd fora 
total of £20.41 including 
packing, postage and VAT. I 
don’t usually pay such a large 
sum for something which is not 


aproven necessity, but I could 
not continue with the system 
as it was and was prepared to 
give it alast chance, largely 
because of the speed and 
excellence of Psion version 2 
software but also because of 
the power and flexibility of 
Sinclair Basic. 

Ihave been using The Plug 
since April 25 and itis now 
May 13. The QL does not crash! 
Ileave the QL switched on and 
loaded with an Archive 
database night and day. Itis 
always ready for use when I 
return to it. My work, chiefly 
with Archive and Quill, 
proceeds without hitch or 
hindrance. Furthermore, I no 
longer find small corruptions 
when the database is printed. 

To establish that The Plug is 
the cause of the dramatic 
change in performance I 
should run controlled trials 
with and without The Plug, to 
provide data for statistical 
tests of significance, but lam 
sure you will not ask me to do 
that. lama simple QL user and 
not part of the QL design team. 
Thave had my share of crashes 
and cannot afford more time on 
them. I think however that it is 
worth recording that since 
installing The Plug they no 
longer occur and that since 
then my QL system has been 
reliable. 

HRB Hack 
Hebley-On-Thames 


Commpak Comeback 
I would like to pick up on a few 
points in your Modem Moves 
article (June issue). 

The Bright Star will be 
available from both Commpak 
Data and Modem House. 

The Modem and associated 
control software was 
principally designed by David 
Byrne. 

The price of the Bright Star 
is now £179.95 including 
software and serial cable, as 
opposed to £160 previously for 
the Modem alone. Whilst every 
attempt has been made to keep 
the price down, manufacturing 
costs for Intelligent Modems 
are high, and the only way to 
ensure proper distribution and 
support, is by offering 
competitive trade discounts. 

First deliveries are 
scheduled for early July, and 
an Auto-Dial, Auto-Answer 
upgrade board will be available 
soon after. Another model 
incorporting these features as 
standard will also be available. 
Keith Webb 
COMMPAK DATA 


NEXT 
MONTH 


TELECOMMUNIGATIONS 


“QL, phone home...” 
Forget the previews and prevarifications, 
we’ve got hold of the two main contenders in 
the QL modem stakes and will be putting 
them through their paces. 


ee ee 
Readers’ Programs Special 


Whilst we’ve been presenting competition 
results, it seems that you've been beavering 
away on some really top flight programs. So, 

we’ve extended ‘The Progs’ to cope! 


The QL Business Triangle 


Three examples of commercial applications 
software and their development, as 
‘expounded by one company involved in the 
production of specialist QL software. 


a 
The Odd Couple 


Ever heard of acompany called Hantarex, or 
how about C-Itoh? Well, we hadn’t either, so it 
was with some surprise that we received a 
monitor from one and a printer from the other 
—both QLcompatible... 


Ba RAN ad 
PLUS THE RETURN OF: 


Psion Probe — your letters answered by 
Psion’s head of Software Support. 


Software File — with in depth reviews. 


Contents subject to late revision 


AUGUST ’85 EDITION 
ON SALE 21st JULY 
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GRAPHICS 


Computer graphics are usually based 
on some kind of co-ordinate grid, 
specifying positions by rows and col- 
umns. But there is a quite different 
approach, invented by Seymour 
Papert as part of the language Logo — 
Turtle Graphics. In Turtle Graphics 
you have at your disposal a small 
number of simple commands with 
which you direct the motions of a 
turtle The turtle can be anything 
from a pixel on a television screen to a 
motorised robot equipped with a felt- 
tipped pen. The advantage of the 
former is that programming errors do 
not lead to unusual designs on the 
living-room carpet. 

The turtle can be told to raise or 
lower its pen, turn to or through a 
particular angle, and move a speci- 
fied distance. You can combine sequ- 
ences of these moves into named 
procedures (Square, Spiral, Olympic_ 
emblem, Mona_Lisa), effectively 
adding new commands to the lan- 
guage. By building up.a library of 
such procedures, you can develop 
your own powerful graphics lan- 
guage. 

QL SuperBasic includes built-in 
Turtle Graphics commands. I’m 
going to explain roughly how they 
work, and then use them to explore 
one of the current frontiers of scien- 
tific research, the curious world of 
Fractals. Fractals are curves or sur- 
faces that possess detailed structure 
on a wide range of scales. They are 
intricate, beautiful, and ideal for the 


Producing ever-decreasing blocks is a prime example 
of recursive programming. 
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QL’s structured SuperBasic. 


TURNING TURTLE 


Suppose the QL is in its standard 
state, with the screen scale at its 
default value SCREEN 100,0,0. Let d 
represent a distance on the screen 
and a an angle in degrees, measured 
(as usual) anticlockwise from 3 
o'clock. The basic Turtle Graphics 
commands are: MOVE d (move for- 
ward distance d); TURN a (turn 
through angle a); TURNTO a (turn to 
angle a); PENDOWN (start leaving a 
trail); PENUP (stop leaving a trail). 
So to persuade the turtle to traverse a 
square, use something along the lines 
of listing 1. 


Listing 1 


100 TURNTO 0 

110 PENDOWN 

120 MOVE SO:TURN 90:MOVE 50 
130 TURN 90: MOVE 50 

140 TURN 90: MOVE 50 

150 PENUP 

160 STOP 


The turtle starts off at position 
(0,0), bottom left of screen, unless you 
start it elsewhere using POINT x,y. 

Drawing regular polygons usually 
means a lot of fiddling with sines and 
cosines, but our turtle is much more 
clever. All he does is move a fixed 


Listing 2 


100 PAPER 1:INK 7:CLS 
110 SCALE 20,-10,-4 
120 POINT 0,0 

130 FOR k=2 TO 16 

140 polygon k,3 

150 END FOR k 

S00 DEFine PROCedure polygonin,d) 
510 LOCal k 

520 PENDOWN 

530 FOR k=1 TO n 

540 MOVE d 

550 TURN 360/n 

560 END FOR k 

570 PENUP 

S80 END DEFine polygon 


ON DISPLAY 


Turtle Graphics needn’t be just 


child’s play. With the aid of 
SuperBasic, lan Stewart shows 
how to achieve simple but 
stunning effects. 


distance, turn through a fixed angle, 
and repeat! Listing 2 gives a general 
procedure for this, and uses it to draw 
polygons with 2,3, ... 16 sides. 

The usual curves you encounter in 
geometry are nice, smooth objects, 
hike a circle. Magnify a circle enough, 
and it looks flat. In the last ten yers or 
so, scientists have discovered a quite 
different type of curve (or surface), 
called a Fractal best described as 
wiggly. Under magnification the ori- 
ginal wiggles grow very large so you 
can’t see them any more, but new, 
tiny wiggles show up. This goes on for 
some time, as you keep making the 
fractal bigger. Fractals are important 
because many natural phenomena 
have this kind of structure. The 
wiggles in a coastline, the bark of a 
tree, the air-passages in a lung, the 
slopes of a mountain, the eddies in a 
turbulent river. 

Using Turtle Graphics, proce- 
dures, and the QL’s ability to handle 
arbitrarily long strings, we can ex- 
plore some of the delights of the 
World of Fractals. 


THE SNOWFLAKE 


This curve was invented by Helge 
von Koch to show that an infinitely 
long curve could enclose a finite area. 
It starts with a triangle, adds smaller 
triangular peaks to each side, and 
then keeps repeating the process. 
The result is a beautiful symmetrical 
shape, rather like a snowflake (List- 
ing 3). 

A similar program (Listing 4) plots 
a ‘snowflake’ based on a pentagon 
rather than an equilateral triangle. 


DRAGON CURVES 


Dragon curves are built up from a 
straight line segment by putting a 
right-angled bend into it, with the 


Listing 3 


yi00 snows="111" 

110 SCALE 100,0,0 
120 MODE 4 

120 FOR g=1 TO 5 


140 POINT 40,30 
150 TURNTO -120 
160 string g 

170 drawstring 9 


180 END FOR g 

1000 DEFine PROCedure string(g) 

1010 LOCal a%,t 

1020 at="" 

1030 FOR t=1 TO LEN(snows) 

1040 IF snowS(t)="1" THEN aS=atsi"Irir" 
1050 IF snow#(t)="r" THEN at=atee"rrir” 
1060 END FOR t 

1070 snows=as 

1080 END DEFine string 

2000 DEFine PROCedure draw_string(g) 


2010 Lacal t,d 

2020 d=81/(3%9) 

2030 cLs 

2040 PENDQWN 

2050 FOR t=1 TO LEN (snows) 

2060 IF snow$(t)="1" THEN TURN 120 
2070 IF snowS(t)="r" THEN TURN -60 
2080 MOVE d 

2090 END FOR t 


2100 END DEFine drawstring 


Listing 4 


100 SCALE 100,0,0 

110 MODE 4 

120 z=2+,5¥(1+S@RT(5)) 
1320 pent$="11111" 

140 FOR g=1 To 5 


150 POINT 50,28 
160 TURNTQ -72 
170 drawstring g 
180 string g 


190 END FOR 9 
1000 DEFine PROCedure string(9) 


1010 LOCal t,as 

1020 at$="" 

1030 FOR t=1 TO LEN(pents) 
1040 IF pentS(t)="1" 
1050 IF pentS$(t)="r" 
1060 END FOR t 

1070 peht$=as 


1080 END DEFine string 


THEN at=at&e"Irlir 
THEN atS=as&"rrilr 


2000 DEFine PROCedure draw_string(g) 


2010 Local t,d 

2020 d=150/ (2z%g) 

2030 PENDOWN 

2040 FOR t=1 TO LEN(pents) 

2050 IF pentS(t)="1" THEN TURN 72 
2060 IF pentS(t)="r" THEN TURN -72 
2070 MOVE d 

2080 END FOR t 


2090 END DEFine draw_string 


Listing 5 

Di00 SCALE 100,0,0 
110 MODE 4 

120 drags="rr" 

130 FOR g=1 TO 12 


140 string g 

150 cLs 

160 AT 0,0:PRINT “Dragon curve"\"Stage"!g 
170 draw_string g 


180 END FOR g 
1000 DEFine PROCedure string 


1010 LOCal t,k,a% 

1020 as="" 

1030 FOR t=1 TO LEN(drag#) 

1040 k=t MOD 2 

1050 IF drag$(t)="r" AND k=1 THEN at=ase"rl" 
1060 IF dragé(t)="r" AND k=O THEN aS=as&"rr” 
1070 IF drag#(t)="1" AND k=i1 THEN at=aé&e"l1" 
1080 IF drag#(t)="1" AND k=O THEN at=asé&"1r" 
1090 END FOR t 

1100 drags=as 


1110 END DEFine string 
2000 DEFine PROCedure draw _string(g) 


2010 LaoCal t,d 

2020 = 65/(1.618)*g 

2030 POINT 35,35 

2040 TURNTO 108-36%9 

2050 PENDOWN 

2060 FOR t=1 TQ LEN(drags) 

2070 IF drag$(t)="1" THEN TURN 72 
2080 IF dragS(t)="r" THEN TURN -72 
2090 MOVE d/2+d¥RND 

2100 END FOR t 


2110 END DEFine draw_string 


bends on alternating sides of the line. 


Listing 6 

<100 SCALE 100,0,0 
110 MODE 4 

120 dragS="rr" 

130 FOR g=1i TO 12 


140 string g 

150 cLs 

160 AT 0,0:PRINT 
170 drawstring g 


180 END FOR 9g 
1000 DEFine'’PROCedure string 


1010 LaCal t,k,a% 

1020 ag$="" 

1030 FOR t=1 TO LEN(drags) 
1040 k=t MOD 2 

1050 IF drag$(t)="r" AND k= 
1060 IF drags(t)="r" AND k= 
1070 IF drag$(t)="1" AND k= 
1080 IF drag#(t)="1" AND k= 
1090 END FOR t 

1100 dragt=as 


1110 END DEFine string 


"Dragon curve"\"Stage"'!g 


THEN aS=as&"rl1" 
THEN af=atk"rr" 
THEN at=até&e"11" 
THEN at=at&"Ir" 


2000 DEFine PROCedure draw_string(g) 


-90 


2010 LOCal t,d 

2020 = 65/(1.414)%9 

2030 POINT 35,35 

2040 TURNTO 135-45%9 

2050 PENDOWN 

2060 FOR t=1 TO LEN(drags) 

2070 IF drag#(t)="1" THEN TURN 90 
2080 IF drag#(t)="r" THEN TURN 
2090 MOVE d 

2100 END FOR t 


2110 END DEFine draw string 


Listing 5 draws dragons (named for 
their convoluted shape, rather like a 
Chinese dragon if you have a good 
imagination!) using a variation on 
the ‘left/right sequence’ technique. 
Although the dragon curve runs 


into itself every so often, it never 
retraces the same segment twice. At 
advanced stages, it’s quite remark- 
able how the dragon curve tucks 
itself snugly into various ‘bays’ left in 
what’s been drawn so far. 

As mentioned fractals can resem- 


ble coastlines. Listing 6 shows some 
quite convincing examples using this 
method. Like real coastlines, there 
are not only promontories and bays 
but smaller bays in the sides of the 
bays, and smaller promontories in 
the bays, and so on. 
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NOW, buy a CAATAIOGE TIDY 


and you’re a free! member of 


CARTRIDGE 
CADDY SYSTEM 


What Cartridge Caddy 


membership offers you 
GUARANTEED STOCKS 


Microdrive cartridges 
at £1.50 delivered to your door! 


within 24 hours 


Please sendme ........ (Qty) Cartridge Tidy’s, Clzx [Je, | Mr/Mrs/Miss | 


Cartridges available 
separately (with labels), at 
£1.90 each. Guaranteed 
availability and 24-hour 
delivery 


@ Holds 
16 Microdrive 
Cartridges ; 

@ Interlocking design 

feature allows Horizontal 

and Vertical Stacking 
~Space Saver 


at £6.99 each, inclusive.and............ blank microdrive cartridges 
Address 
at£1.50 each | enclose a cheque forf............. Add £1 p&p 
Make cheques payable to: 4 SYSTEMS LI 


4 SYSTEMS, M.O.D. supplier to leading U.K. businesses 


and universities 


68 FOXWOOD CLOSE, FELTHAM, MIDDLESEX TW13 7DL TEL: 01-844 1399 
APPROVED ie : 
for use with 
telecommunication systems : 
run by British 
Telecommunications ae j 
in accordance with the : 


conditions in the 
instructions for use 


Q-CONNECT 


Complete RS232 output for general communications from 
75-9,600 baud with full two-way buffering and flow control. Plus 
all the software on a micro drive to support all 3 modules. The 
software includes Prestel Viewdata/Videotex AND VT100 
emulation, as well as user-to-user communications with error- 
corrected file transfer (with encryption for security) and many 
other features including a telesoftware downloader. 

Connects to the QL's SER 2 port allowing the micro to be 
used with virtually any asynchronous modem and for general 
data communications. 


Q-MOD 


Manual dial V23 modem operating at 1200/75 baud and 
1200/1200 baud half duplex. 


Q-CALL 


Provides traditional pulse/loop disconnect auto-dial and 
auto-answer. 


Prestel and Telecom Gold 


Disk Storage No. 1 


This diskette storage 
holds 70 diskettes 


Our Super Low price 
£14.95 including VAT 


Disk Storage 
No. DX45 


This lockable diskette 
box holds 45 disk- 
ettes and displays 
them as shown 


Super Low price 


£12.00 incl. VAT 


3M Scotch Disc 
514" diskettes single sided 


1-2 boxes 3-9 boxes 10+ boxes 
£15.00 £13.50 £13.00 
£20.00 £18.40 £17.70 
£23.00 £20.70 £20.00 
£26.70 £24.00 £23.00 


SS 40 TRACK 
DS 40 TRACK 
SS 80 TRACK 
DS 80 TRACK 


10 DISCS 
PER BOX 


Dot Matrix Printers 


Taxan Kaga KP810 £279 
Canon PW1080A £279 

Epson RX80/FT £269 

Epson FX80 £389 

Shinwa CPA80 (100cps) £219 
Mannesman Tally MT80 £209 
All prices include VAT 


Daisy Wheel Printers 


Juki 6100 £339 
Quen Data £239 
All prices include VAT 


Please add £25 for printer lead 
(serial to parallel) 


Microvitec Cub 
Monitor 


Price 
£275 including VAT 


Please add for carriage: 
A—£2,B—£3,C— £8 


Delivery usually less than 
7 days 


Post to: VIGLEN COMPUTER SUPPLIES, UNIT 7, TRUMPERS WAY, HANWELL W7 2QA. Telephone: 01-843 9903. 


Please send me 


Credit cards valid only if signed by 


| enclose Cheque/P.O. for £ 


Cheques payable to Viglen Computer Supplies 


Name 


Incl. carriage 


Address 


card holder. Address must be the same 
as card holder. 


A= 


| prefer to pay by ACCESS/BARCLAYCARD 


(Delete whichever is not applicable) 


Card No. 


Signature. 


COMMUNICATIONS 
SINCLAIR QL 


Thanks to Tandata you can now convert 
your QL into a powerful and comprehensive 
communicating terminal. You can contact 
distant databases such as British Telecom's 
Prestel system, private viewdata systems, 
traditional ASCII databases and electronic 
messaging/mail services such as Telecom 
Gold. You can even replace your existing 


VT100 terminal and enjoy secure 
communications with other QLs. 


The three smart modules have been 
designed to match the QL in style and for 
added convenience they stack together using 
vertica! bus connectors without the need for 
interconnecting cables. 


The modules are available separately, 
but by using all three as a complete matched 


Tandata 


Tandata Marketing Limited 


Albert Road North, Malvern, Worcs. WR14 2TL. 


Telephone: 06845 68421. Telex: 337617 Tandat G. 


Prestel *799# Telecom Gold 81: TANO01 
Asubsidiary of Tandata Holdings plc. 


system full advantage can be taken of the 
integrated features of the Q-CONNECT's 
software. 

If you'd like to know more, simply 
complete the coupon. 


I'd like to know more about 
| Tandata communications 
| for the QL. 


aur] 


| Send to: 

Tandata Marketing Ltd., 
Albert Road North, Malvern, 
Worcs. WR14 2TL. 


Adam Denning guides us 
through some of the 68000’s 


more advanced features. 


Last month we discovered how to add 
numbers using simple 68000 
machine code instructions. We also 
discovered one method of returning 
the results to us via the SuperBasic 
interpreter, but there’s an awful lot 
more that we can do with a microp- 
rocessor as sophisticated as the QL’s 
68008. 

To be able to get to grips with the 
more advanced features, we need to 
find out more about addressing mod- 
es and instruction types. We'll do this 
by example, as it’s a more pleasant 
way to learn than pure theory! 

To make things more interesting, 
we'd obviously like to see what we’re 
doing; we have to be able to read the 
keyboard and write onto the screen, 
and the only sensible way of doing 
this is through the QL’s operating 
system, QDOS. 

As programmers familiar with Su- 
perBasic will already know, we can 
only read and write from input and 
output (‘/o’) devices by opening chan- 
nels to them. We do this from Super- 
Basic by using the OPEN keyword 
with a channel number and device 
specifier (or name), as in 
OPEN#3,mdv1_myfile. 

This statement causes the specified 
device or file (‘(mdv1_myfile’ here) to 
be opened and associated with chan- 
nel 3. The SuperBasic OPEN 
keyword has OPEN_IN and OPEN_ 
NEW variants to allow us to specify 
that a device is to be opened for either 
input (OPEN_IN) or output (OPEN_ 
OUT) only. When a channel has been 
opened for input, we may read data 
from the device or file attached to the 
channel using the SuperBasic IN- 
KEY and INPUT statements. When 
a channel has been opened for output, 
we may write data to the device using 
the PRINT sttement. 

Things are much the same in 
machine code, except tht words like 
INKEY or PRINT can’t be used, as 
the 68000 has no idea what they 
mean. Also, we can’t specify which 
channel number to use; QDOS tells 
us. But this is more sensible than it 
sounds, as we'll find out. 

To open a channel to a device, we 
use one of the 68000’s exceptions — 
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ACHINE 
CopET 


the TRAP. TRAP #2 is 
reserved by QDOS for this 
purpose (amongst others), 
and we tell it to open a 
channel by putting a spe- 
cial number into register 
DO before executing the 
TRAP instruction. We 
must also give the routine 
some more information. It 
needs to know the name of 
the device or file to open 
and which method to use 
(ie, for input only, output 
only, or both at the same 
time). Finally, it needs to 
know which job the chan- 
nel is being opened for — 
which will take us into the 
advanced realm of multi- 
tasking. 

When the routine in- 
voked by the TRAP #2 
exception has finished, it 
returns to the point in our 
program following the 
TRAP instruction, with a 
few values in certain regis- 
ters to tell us if it suc- 
ceeded. We'll examine 
these shortly, but first 
we'll write a short and 
complete program to print 
a string (a sequence of 
characters) onto the 
screen (Listing 1). 

Then this machine code 
program can be loaded and 
executed from SuperBasic 
using Listing 2 

What we're doing here is 
rather more straightfor- 
ward than it seems. The 
first instruction loads the 
effective address of the 
name of the device 
FNAME into AO. Now, 
although it may not look 
like it, we’re using prog- 
ram counter relative 
addvescing here, so the LEA instruc- 
tion loads the current value of the PC 
into AO and then adds the offset from 
this point in the program to the start 
of the message. This ends up with the 
absolute address of FNAME being in 
AO. We then move some values into 
data registers ready for the QDO0S 
routine. We put 1 in D0 to signify 
‘IO.OPEN’, which is the name of the 
file opening routine, and —1 in D1 to 
say ‘for this job’. The code we put into 
D3 is 2, which means ‘open as a new 
file’. We then call the routine with 
TRAP #2. Normally, we would then 
check that everything worked by 
examining DO after the trap. If it is 
zero, all went well; if not, it holds the 
relevant QDOS error code. To make 


T 
O 
R 
ee 
L 


10.0PEN EGU 1 
TO.CLOSE EQU 2 
UT.NTEXT EQU $00 


Routine to open a channel 
Routine to close a channel 
Routine to print a message 


FNAME , AO 
#10, OPEN, DO 


MESSAGE Al 
UT.MTEXT,A2 
(A2) 

#10, CLOSE,DO 
2 


FNANE 4 This is the length of the nase 
and these are the characters 


MESSAGE © EQU The message goes here 


Listing 1. Printing characters to the screen. 


100 addr=RESPR(512) 
110 RESTORE 

120 FOR x=0 TO {6:READ psPOKE_W addr+(x#2) ,p 

130 REPeat loop 

140 INPUT#0; ‘What is your message?’ 'n$ 

150 POKE_W addr+34,LEN(a$) 

160 FOR x=1 TO LEN(m$):POKE addr+x+35,CODE(m$(x)) 
170 CALL addr ~ 

180 END REPeat loop 

1000 DATA 16890, 26sREMark LEA.L FNAME, AO 

1010 DATA 28673,29439:REMark MOVEO #1,D0 MOVEO #-1,D1 
1020 DATA 30210,20034:REMark MOVEO #2,D3 TRAP #2 
1030 DATA 17402,20:REMark LEA,L MESSAGE, AL 

1040 DATA 13432, 20B:REMark MOVE.W UT.NTEXT,AZ 

1050 DATA 20114, 2B674:REMark JSR (A2) MOVER #2,D0 
1060 DATA 20034,20085:REMark TRAP #2 RTS 

1070 DATA 4:REMark Length of device naae 

1080 DATA 21315,21087:REMark ‘SCR_' 


Listing 2. Loader for the above program. 


things easier we’ll assume that it has 
succeeded. 

After opening the channel, we need 
to print our message to it. The 
message starts at the MESSAGE 
label, so we need to load its address 
into Al, using LEA once more. There 
are numerous ways of printing out 
information on the QL, but the 
easiest way to print a message is to 
use the utility routine ‘UT.MTEXT’. 
The address of this routine is held in 
address $D0, so we use MOVE to put 
it into A2. 

To actually call the routine, we use 
address register indirect addressing, 
which in the case of JSR and JMP 
finds the address held in the specified 
register and loads it into the program 
counter. This is slightly different 
from the usual address register in- 
direct system, which features data 
from the address pointed to by the 
register. 

Once UT.MTEXT will print out the 
message, we must close the channel. 
A further TRAP #2 exception 
routine does this, and all we need to 
do is put 2 into D2 and the channel ID 
into AO. The channel ID is the unique 
number returned by IO.OPEN when 
it’s opened the channel. Thankfully, 
it returned this number in AO, and 
it’s still there. The final instruction, 
RTS, takes us back to BASIC. Nor- 
mally we would need to clear DO to O 
before returning to BASIC, other- 
wise an error would be generated. 
But here, we can take advantage of 
the fact tht IO.CLOSE will do this for 
us if successful, which it did. 


Next issue, we finish the series off by 
writing a large program using several 
QDOS routines. 


AT LAST! 
THE QL 
COMMUNICATES 


ANNOUNCING THE 
QL BRIGHT STAR 


The only multi-standard intelligent modem, suitable for use 
with the QL. 


MANUFACTURED BY MODEM HOUSE — WHO ELSE! 


1985 is The Year Of Communications, 50... link your QL to Prestel, 
Cityservice, Homelink, Farmlink, BT Gold, Knowledge Index, Easylink, 
One to One etc. 


The QL Bright Star multi-standard modem is a completely new conceptin 
modem design, and is supplied with communications software and builtin 


centronics printer interface. 
The Bright Star is truly a Quantum leap for the QL. 


The microprocessor controlled modem allows you to spool incoming data to 
microdrive or printer, save data to microdrive or printer, or link your QL to 
astandard centronics printer. 


Data Encryption facilities and fully comprehensive help menu 
provided as standard. 


Auto-Answer, Auto-dial version coming soon! 
Main specifications: CCITT V21/V25, BELL 103/113 
Speeds: 500/500, 1200/75 75/1200, 1200/1200 
The QL Bright Star is truly the last word in communications. 
- Special note: This product is not, and has not been connected in any way, 
with the Q-CON or O.E. Ltd, and is British designed and manufactured. 


At an amazing special price of £179.95 complete 
(RRSP £199.95) 


MODEM HOUSE 


lolanthe Drive, Exeter, Devon EX4 9EA 
Telephone: (0392)69295 — 
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fm Thebestservice, thebestvalue 
in printers from Viglen 


Dot Matrix Printers Daisy anes 


Please add py 
aoe ™ Canon PW1080A/ Pri n 
7 ——— Taxan Kaga KP810 


' sy Epson a. 


£275 
Epson FX80 


Please add £25.00 for the 
Serial to Centronics 
Interface Cable for the QL. 


Viglen are also major suppliers 
to educational and government 
establishments and welcome 
further enquiries and orders. 
Visit our showroom 
Weekdays 9.30 - 6pm. 
Saturday 9.30 - 4pm. 


All prices correct at time of going to press 


Juki 6100 £369 Please add 
Quen Data £247 8 for carriage 


Post to: Viglen Computer Supplies. eee ce may 
Unit 7, Trumpers Way, Hanwell W7 2QA. 01-843 9903. 


® 80 column dot matrix printers 


@ Raises printer high enough to put Please send me 


continuous stationery underneath I enclose Cheque/P.O. for £ Incl. carriage. 

@ Beautifully finished in clear perspex Cheques payable to Viglen Computer Supplies. 

@ Viglen quality every time Name 

@ Will accept paper up to 12%" wide Adda 

s 

@ Non-slip rubber pads Tess) 
Dimensions: I prefer to pay by ACCESS/BARCLAYCARD Credit Cards valid only 
15" (380mm) wide Pe in add (Delete chet nei applicable) if signed by card holder 
12%" (320mm) deep or carriage ‘ Address must Deithe 
4” (90mm) high Also available 136 column printer stand £27.00 Card No. Se a ae Lee 


me Ee ee ee 


Signature 


 dasevion: 


Eidersoft 


ZAPPER £10.95 


ALSO ON 40 TRACK DISK 

100% MACHINE CODE GAME. FUN FOR 

ALL THE FAMILY. FEATURES 8 CEVELS OF 

MULTICOLOUR GRAPHICS; SUPER- 

“SMOOTH HIGH SPEED ACTION; SOUND; 
HIGH SCORE; VERY ADDICTIVE! 


LENGTH 65K APPROX. LOAD TIME 4 MIN 
TV/MONITOR JOYSTICK/CURSOR. 


ARCHIVER £16.95 


ALSO ON 40 TRACK DISK 
QUALITY BUSINESS 
PROGRAMS FOR PSION 
ARCHIVE VERS 2. 
A MASSIVE PACKAGE OF 
TEMPLATES AND READY TO RUN 
PROFESSIONAL PROGRAMS THAT 
CAN BE ADAPTED TO SUIT YOUR 
OWN PURPOSES. , 
STOCK CONTROL INVOICING 
MAILING / ADDRESS DATABASE EIDERBOX 
APES INIMENTS SYSTEM An attractive video style s 
MANY ROUTINES INCLUDED FOR | |‘icrag6 box with 
DATA ENTRY, BACKUP, PRINTER i 
DRIVING, SEARCH, DATING 
Atari Joysticks £8.49 | ERROR TRAPPING AND MUCH 
£2 DISCOUNT IF PURCHASED WITH PROGRAM MOREI! 


MICRODRIVELABELS //FULL 48 PAGE USER AND 
-WHITE/RED/BLUE/GREEN/YELLOW TECHNICAL M ANUAL 
QSPELL £19.95 i 
KIT O 00 


LOAD TIME. : VARIOUS LENGTH : 100K+ STOP 
ALSO ON 40 TRACK DISK PRESS - A FULL RANGE OF EXTRA TEMPLATES 
A SPELLING CHECKER FOR QUILL WITH 


ALSO ON 40 TRACK DISK 

THE ULTIMATE GRAPHICS AID FOR 

SUPERBASIC 4 GREAT PROGRAMS TO 

MAKE QL GRAPHICS EASY 

* Cursor Drawing with advanced 
features 

* Character Designer (all sizes) 

* Window Designer 

* File Manager 

* + High Res. Printer Dumps 


LOAD TIME 26 SECS. LENGTH 100K APPROX, 
MANUAL 13 PAGES 


QL JOYSTICKS 


SURESHOT QL 
microswitched 
steelshaft £25.95 
QUICKSHOT QL 
world beater £43.95 
QL CONVERT 

LEAD converts 


AVAILABLE. SEE PACK FOR DETAILS. 


MANY ADVANCED FEATURES! 

* 25,000 WORD DICTIONARY 

* RESIDES IN MEMORY! Please note all photographs appearing in this advertisement 

* USER DICTIONARIES E | D al RB S O F cL are actual screen shots of our programs. 

+* AUTO LEARNS WORDS 

*SOLVES ChosswiORDs QL SYSTEMS 01-478 1291 TLX.8951807/7,c" 
LOAD TIME 1:28. MANUAL 8 PAGES. LENGTH 90K. DEAEEHS REGU RED PLEASE PHONE FOR DETAILS Zz © 


A4 PAGE SPEED 24 SECS. 
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Authors pander to 


the needs of dedicated 


programmers this month, 


as Nicky Trevett finds out. 


From Sunshine comes Andrew 
Pennell’s The Sinclair QDOS 
Companion, price £6.95. This 
book is, as the author points 
out, very definitely for those 
who know 68000/8 machine 
code and who wish to put their 
knowledge to practical use. It is 
worth bearing in mind that the 
book was written as a sequel to 
the author’s previous work, 
Assembly Language 
Programming on the Sinclair 
QL. 
The book starts witha 
fascinating history of QDOS 
(and, incidentally, 
SuperBasic), which includes 
the obligatory ‘Domesdos’ 
anecdote, and finishes up with 
a brief look at the various 
versions of QDOS, culminating 
in version 1.03, the ‘current’ 
version on which the book is 
based. If your machine 
contains 1.02, however, the 
book should still be relevant. 
From there it’s straight into 
memory organisation, witha 


useful diagram illustrating the 
hardware memory map and 
the usage of each port—the 
real-time clock, the write-only 
and read-only ports, and so on. 
There’s another diagram 
showing the RAM memory 
map, a listing of the system 
variables (byte space reserved 
for use by the system, some of 
which is unallocated and 
available for user programs), 
and a look at the ways QDOS 
can be called up via system 
traps and system vectors. 

Having flitted about QDOS 
in this way, the book proceeds 
to examine in detail mullti- 
tasking, input/output, the 
device drivers, interrupts and 
external ROMs and device 
drivers. There’s a chapter 
devoted to the 8049 second 
processor, the slave processor 
which is not directly accessible 
from the 68008, and another 
which looks at the QDOS 
utilities. 

Considering the heavily 
technical nature of the content, 
the style is informal, and 
mostly avoids being a text 
book. Much of the material 
seems based on personal 
experience with QDOS, as 
indeed the preface claims, and 
the result is a practically- 
orientated guide, 
recommended to those witha 
serious interest in machine 
code programming, who don’t 
so much want a quick 
reference as a narrative 
introduction to the subject. 


Full Steam Ahead 


If, on the other hand, you are 
after a comprehensive 
reference manual which 
contains pretty well all the 
QDOS routines you are ever 

| likely to need, Adrian Dickens’ 


QL Advanced User Guide 
could be for you. 

Published by Adder at 
£12.95, this is a heavyweight 
volume, about twice as thick as 
Andrew Pennell’s work, and 
covering, to an extent, much 
the same ground. 

The introduction makes the 
author’s intention clear. The 
QL User Guide is woefully 
inadequate as far as “the more 
interesting aspects of the QL as 
anew generation of computer” 
are concerned. To make the 
most of your QL, you must 
forget about limited old BASIC 
and go straight for assembly 
language programming. Only 
then can you expect to take full 
advantage of the QL’s 
potential —in multi-tasking, 
and in producing your own 
advanced programs. Above all, 
you will be able to take full 
control. 

It’s aimed at the same type of 
user as The Sinclair @DOS 
Companion, but its approach is 
quite different. The book starts 
with an introduction to the 
68008 microprocessor, a useful 
summary but hardly a 
beginner’s guide to machine 
code. You will need basic 
knowledge of machine code to 
make the most of the book asa 
whole. 

Most of the rest of the book is 
presented as the sort of 
reference guide that Andrew 


-Pennell’s book isn’t but first 


comes an overview of QDOS, 
covering concepts like multi- 
tasking and system control, 
and a chapter entitled 
“Experimenting with QDOS”. 
This looks at SuperBasic 
keywords “not properly 
covered in the Sinclair QL User 
Guide”, like Call, Exec, Peek, 
Poke and so on, and the 


| BOOKMARKS _ 


Experimentor program, which 
allows you to get into QDOS 
from BASIC and is invaluable 
if you don’t possess an 
assembler. The chapter 
includes a full Experimentor 
listing, and some example 
programs written in assembler 
to get you started. 

The remaining chapters 
cover the sections of QDOS in 
detail, starting with a few 
pages of introduction followed 
by an extensive reference 
section. Thus the chapter on 
manager traps starts witha 
discussion of the part they play 
within QDOS, looks at the 
different types of memory 
allocation, then moves on to 
the nitty gritty: first a list 
summarising the traps and 
what they do, then a closer look 
at each trap in turn. 


Al Academia 7 
QL users with a serious 
interest in artificial 
intelligence, unsatisfied by the 
‘hobbyist’ books that have so 
far appeared on the subject, 
should welcome Artificial 
Intelligence: Tools, Techniques 
and Applications, published by 
Harper and Row at £12.95. 
Edited by Tim O’Shea and 
Marc Eisenstadt, this is a 500- 
page compilation of articles on 
matters pertaining to 
mainstream AI research, 
including Prolog and Lisp, 
robot control and natural 
language, text processing and 
expert systems. It is not geared 
to any particular type of 
hardware, or any specific 
reader; these are papers 
written by experts across a 
broad range of subjects, for 
acaderhics, industrialists, or 
quite simply for anyone whois 
interested. 


QL User/July 1985/21 


PHOTO BY TERRY BEDDIS 


offer a lICD ive 
to the microdrive 


Speeding up your data access 
with Viglen disc drives means 
instant reliable access every time 


Specially designed to fit neatly into the case of 
the Sinclair QL, the Q-Disc Interface Board and 
companion disc drives are colour-matched to 
compliment your QL computer. 


@-Disc Interface + 200k single drive 
(Formatted capacity) £199 inc VAT 


Q-Disc Interface +800k single drive 
(Formatted capacity) £249 inc VAT 


@-Disc Interface + 1.6M dual drive 
3% inch <i (formatted capacity) £329 inc VAT 


i The above systems are complete and ready to plug in 
drives also and use, they include a Utilities disc to convert Psion 
available exchange software from microdrive to disc. 


Q-Disc Interface on itsown "8449 


Prices correct at time of going to press. Offers subject to availability. 
Even lower prices with other QL interfaces, 


Visit our showrooms 
Open Monday - Friday 9.30 - 6.00 Saturday 9,30 — 4.00 


Unit 7, Trumpers Way 
Hanwell W7 2QA 


< 


Carriage 
Please add £12.00 for carriage. Orders are 


usually despatched to you within twenty- aT C 22, 
four hours of receipt. S e 
-) 
Viglen are also major suppliers to educational 
and government establishments and welcome ie 
A 


IANOR 
o. 


further enquiries and orders. 
ele 


Post to: VIGLEN COMPUTER SUPPLIES. 
Unit 7, Trumpers Way, Hanwell W7 2QA, 
Credit card holders may order by telephone on 01-843 9903. 


SS Please send me 


Db * | enclose Cheque/P.O. fore ___. +=*. + __sinélseaittiage. 
] Cheques payable to Viglen Computer Supplies: 


interface ] Name: 
Board ws g \ | Address: 


J 


| prefer to pay by ACCESS/BARCLAYCARD 

I (delete one). Credit Cards valid only 
if signed by card holder 

I cara No See 


] Signature: FN 


22/QL User/July 1985 


Here is the last part of the series and, 
when entered, will give you fully 
working, high speed arcade Space 
Invaders which you can zap to your 
heart’s content between those long 
hard hours of sweat, toil and tears. 

This month we'll look at how to 
print the scores, drop the bombs from 
the invaders, detect the resultant 
collisions, how to make a mother ship 
appear and reincarnate brand new 
bases from the ravaged ashes of their 
forebearers. 

The mother ship is constructed as 
two sprites in the data and moved 
across the screen in ‘baddybus’. This 
routine is extremely straightforward 
and simply replots the two sprites 
horizontally, as explained in the 
program comments. 

The score is managed by four 
routines; Print_score, print_hi_ 
score, print_num and inc_score. The 
scores are stored in Binary Coded 


Decimal (BCD) in the variables Score 
and Hi_score. In BCD each nybble of 
the byte, word or longword in mem- 
ory is only allowed to cover the range 
of values 0 to 9. This effectively 
means that each nybble will repre- 
sent a decimal digit. 

When addition is needed a new 
problem arises. In the game we use 
six digit scores but the ‘add’ version of 
the command will only add one byte, 
or two BCD digits at a time. It’s 
therefore necessary to have a buffer 
(already defined) called ‘mess’ (de- 
fined as a long word).into which we 
move $100 (line 61). This is then 
added, byte by byte using the ‘abcd’ 
command to the long word containing 
the scores. | 

Although the above might seem a 
little complicated it actually makes 
life a lot easier when we come to 
printing out the digits on screen (the 
command ‘Print_num’ does this). 


The bomb dropping routines are 
fairly uncomplicated consisting of 
two sections, ‘Bombs’ and ‘drop_ 
bomb’. The first seeks out the verti- 
cally closest invader to the gunbase 
and initialises it as the one which 
drops the bomb. The second actually 
drops the bomb and checks for colli- 
sions. 

Collision detection is a similar pro- 
cess to that used in ‘bul_movw’ which 
was explained last month. When the 
bomb hits the barriers the process of 
gradually tearing chunks out of the 
barriers is very similar to that used in 
‘bul_hit_bar’, also in last month’s 
issue. 

One of the interesting things about 
Magazine programs is trying out 
modifications and improvements. 
There are a number of ways to play 
about with this program, one of 
which might be the speed at which 
the bombs drop; the set speed is 
rather fast making it very difficult to 
start the game and still retain any 
self-respect! 

As the program stands, there al- 
ways has to be a bomb on screen. 
Slowing down the bomb is relatively 
easy through the simple expedient of 
calling the ‘drop_bombs’ loop fewer 
times from the main loop (starting at 
line 33 published in the first part). 

The remainder of this month’s 
program is called by the routine 
‘base_ded’. When the gun base from 
which you are firing is struck by a 
bomb, this is detected in lines 134 — 
145 (drop_bomb) and the program 
branches accordingly. After making 
the appropriate explosion noise the 
routine performs, in effect, a ‘tidying 
up’ job on the screen, removing any 
old bombs or bullets in flight and 
completing all the explosion sequ- 
ences necessary. The number of lives 
is then examined and, if some re- 


FFFFF 
Peripheral ROMs 


Expansion RAM 


30000 
This area can be used 
as second screen if 
QDOS is disabled 
28000 


Screen RAM 


20000 


Input/Output 


10000 
External ROM 


0co00 


Internal ROM 


00000 
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main, ‘waitkey’ is then called, a 
simple routine which awaits a keyp- 
ress; in this case the space bar or fire 
button. 

If there are no lives left, however, 
the scores are examined to see if 
yours is higher than the current 
highest score. If so, then it is placed 
into the high score. The ‘Play again 
(Y/N) message is then loaded. At 
first sight the way in which this is 
done might seem a little odd, especial- 
ly as the method uses over 700 bytes! 
The reason, however, is fairly simple 
but does involve an understanding of 
how the QL uses its screens. 

Many arcade type games on com- 
puters use the technique of screen 
flipping; the process by which the 
areas in memory used by the screen 
are alternately displayed at high 


speed. This allows alterations to be 
made to the ‘concealed’ screen whilst 
displaying the ‘active’ screen. Thus, 
high speed animation effects can be 
achieved. The QL is easily capable of 
high speed and smooth action with- 
out this method but screen flipping 
offers even faster and more versatile 
graphic displays. The one disadvan- 
tage in the QL’s case is that QDOS 
must be disabled as the area which 
could be used as screen 2 is occupied 
by the management system vari- 
ables, buffers and channel defini- 
tions. Fig 1 shows the layout in 
memory and the location in whichthe 
second screen resides. 

Throughout the whole of the prog- 
ram QDOS is used as little as possible 
and the loading of the ‘Play again’ 
message permits us, in future mod- 


-frustration of not being able to get all 


—_ eee 


ifications, to enable the screen flip- 
ping process. 

If you’ve been faithfully entering 
everything each month you will have 
noticed a problem with part three. 
Somehow, gremlins detached part of 
our program in the first month and 
you will have had difficulties without 
that part, which is given in full below. 
We do apologise for that and hope the 
fun you'll have playing on the com- 
pleted version makes up for the 


of it working perfectly as you went 
along. 

Finally, remove the remaining 
rems (;) from all the program lines. 
The full program is only 9k long in 
code but over 25k in assembler with- 
out the explanatory rems — Happy 


zapping! 
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009 1; OOBE 7000 95 movegq = #num_sp-1,d0 j Loop counting off invaders 
0000 23 User LISI ecreer ier i erect eee rereerer rer TT Teer? TT Tees OOCO OCSOFFFF 696 thing cap.w #-1, (a0) } If invader is dead 
0000 34 i 00C4 6712 97 beq.5 grogy 3 ignore it 
0000 4; * << PALADIN >> + 0006 3206 98 move.w dé,d1 j These lines compute distance 
0000 S3 * * 0068 9250 99 subsw = (a0) ,d1 ; (hor) between inv. and gunbas 
0000 bt ri by ‘ OOCA 6A02 100 bpl.s itspos 3 If Dist. negative then 
0000 7 z ‘ OOCE 4441 101 ; neg.w dl j make it positive 
0000 By * STEVEN HOLLYWOOD & TAN GB WILLIAMS * GOCE: B242 102 itspos cmp.w  dZ,d1 i If closer than closest so far 
0000 93 " 0ODO 6206 103 bhies grogy 3 then 
0000 103 JUHI IGE IIE EERE RE 00D2 3401 104 move.w d1,d2 } Set closest 
0000 ii 0OD4 3810 105 move.m (a0) ,d4 ; Save x and y pos. of 
0000 12; 00DS 1611 106 move.b (ai),d3 3 Closest so far 
0000 133 00D8 5289 107 grogy addg.) #1,at } Moves pointers to next 
0000 145 OODA 5488 108 addq.1] #2,a0 } invader 
0000 15 print_score j This routine prints the score OODC SICBFFE2 109 obf d0,thing 3 Check next invader 
0000 4870380 16 movem.1 d6-d7/a0,-(a7) ; at the top RH side of the O0EO 06030008 110 add.b #8443 j Moves one line down 
0004 3C3C0000 617 move.w #score_pos,dé } screen at score_pos(x co-ord) OOE4 41FAFFFE 111 lea x_bomb,a0 j Initialise x pos. bomb var 
0008 7E00 18 moveq 40,07 + y co-ord OOEB 3084 12 move.w d4,(a0) 3 to closest invader x pos 
000A 4IFAFFFE 19 lea score,ad ; OOEA AIFAFFFE 113 lea y bomb ,a0 j Same again for y pos 
QOOE S10 2 bsr.s — print_num } see below OOEE’ 1005 114 movesb d3, (a0) ; 
0610 4cDFo1Ce 2 movem.) (a7)+,d6-d7/a0 i OOFO 1E03 115 move.b d3,d7 3 Initialise bombs onto 
0014 4E75 22 rte ; QOF2 3004 116 move.w d4,dé } Screen 
0016 23; OOF4 7809 117 moveg 49,05 3 
0016 24 3 OOF GO0O0FF4E 118 bra plot } 
oa 25 OOFA 119; 
0046 26 print_hiscore Same as above but for HI Score OOFA 120 ; This routine moves the bomb, checks for collisions etc... 
0016 7000 27 moveq #score_poshi,dd 3 (% co-ord) aid 121 5 
0018 7E00 28 moveq 40,47 : (y co-ord) 122 drop_bomb j 
OO1A AIFAFFFE © 29 lea hiscore,ad ; OOFA ASFAFFEE 123 lea y_bomb,al 3; Load y pos of bomb 
OO1E 30 3 OOFE 1611 124 move.b (at) ,d7 3 
OO1E 31 5 This prints a six digit decimal number from a binary coded decimal see seer nee hae iowa Rorpanase : Same for x pos 

7 : ) ion? ’ 
ate 2 : long word pointed to by a0 (See text for a sensible explanation!) 0106 S100FF3E 127 bsr plot 3 Un plot old bomb 
OOLE 34 print_nua f O10A 5207 128 addq.b #1,07 3 Move it down one pixel 
OOLE 48E70400 35 - movem.1 d0-d1/d5,-(a7) ; O10C OCO700FO 129 cmp.b #240,07 5 Test for bottom hit 
0022 306 36 move.w 44,45 ; Store x pos in dS 0110 S700FF9A 130 beq bombs ; If yes - drop new bomb 
0024 7205 37 moveq #5,d1 } These four lines 0114 1287 131 move.b d7,(al) } Store new bomb y pos 
0026 6100FFFE 38 next_w bsr blank_out } clear the position to 0116 5SE07 132 addq.b 47,47 } moves to tip of bomb 
002A 04460008 39 sub.w #806 } be occupied by the 0118 5846 133 addg.w #4,d6 ; 
OO2E SICOFEFS 40 db¢ di ynext_w ; nuaber OL1A GIOOFFFE 134 bsr id_col 3 Tests colour - (May issue) 
0032 3005 re move.w d5,d6 } Restore x pos OLLE 6724 135 beq.s ex_drop 3 If black plot new bomb 
0034 7A00 42 moveq #0,d5 . ; 0120 OCO700E9 136 cap.b #233,07 } Test for base collision 
0036 7205 3 moveq #5,d1 ; Set digit counter 0124 6200005A 137 bhi base_dead 5 Tf yes kill base 
0038 2010 44 move.1 (a0) ,d0 ; Moves BCD long word to d0 0128 O242FFO0 138 and.w #$FF00,d2 j Masks off red byte 
0034 1A00 45 nexdig move.b d0,d5 ; Move lowest 2 nybbles into d5 0120 6606 139 bne.s joe 3 If not red then No barr, col 
003C E888 46 Isr.l | #4,d0 ; Shifts BCD nybbles down O12E OCO700C7 140 cap.b #19947 : Is it low enough for barrier 
003E O20S000F 47 and.b | #15,d5 ; Masks off highest ny. of d5 Ors? ibang vas bhi.s  hit_barrier j Yes - kill a bit of barrier 
0042 08050000 48 add.b = #num_base,d5 } Adds sprite base (num_dets) 0134 GLOOFFFE 142 joe ber rev_bul + Kill any bullet on screen 
0046 S100FFFE 49 ber plot ; Put digit on screen O138 4IFAFFFE 143 lea bulposx,a0 ; 
004A 04460008 50 sub.w #8,d6 } Shifts pointer back OU3C SOBCFFFE 144 move.w #-1, (a0) i 
OO4E SICIFFEA 51 dbf di ynexdig } loop for next digit S140 (OOOFERA: 145 bra bombs i Drop new bomb 
0052 4CDF0023 52 movem.1 (a7)+,d0-d1/d5 : naga 146 ex_drop subq.b 47,47 i Put new bomb on screen 
0056 4E75 53 rts ; 0146 5946 147 subq.w #4,d6 3 
0058 54; 0148 6OO0FEFC 148 bra plot ; 

0058 SS; Procedure to increase score by whatever you wish (100 in this case) O14 149 5 

0058 56 ; O14C 150 ; This routine takes a chunk out of the top of the barrier when hit 
0088 57 inc_score : oEsc 151 j by a bomb 

0058 O23C00E7 58 and.b  #$e7,sr j Clears the extend & neg. flag TAG aaa 

OO5C 41FAFFAC 59 lea score,a0 ; o14ac 153 hit_barrier i 

0060 43FAFFFE 40 lea mess,al ; one i706 aoe subq.n #406 ; 

0064 22FC0000 at move.l #$100,(al)+ 3 Moves 100 (BCD) into mess GISE (1602 155 move.b 7,43 i Save y pos of collision 
0068 0100 O150 1E3CO0Ce 156 move.b #200,d7 } Top of barrier 

nae eaeee a" fe ae 0154 45FAFFFE 157 lea rndpos,a2 ; 
006C 7003 63 moveq #3,d0 } Sets up loop to add bytes 0158 7207 158 moveq #7,d1 3 Sets the count to zap 8 lines 
OO6E C109 64 sub_dig abcd tal) ,-(a0) 3 Adds the BCD bytes OL5A 3252 159 scrub Move.w (a2),a1 } These lines get a nearly 
0070 SICBFFFC 65 dbf d0,sub_dig j Next add operation O15C 3Al1 160 mMove.w (al) ,d5 } random number for the 

0074 618A 6b bsr.s  print_score 3 Prints new score Q15SE 5452 16s addg.w #2, (a2) } barrier destruction sequence 
0076 30280002 67 move.w 2(a0),d0 ; These lines check to see if 0160 02450007 162 and.w 47,05 3 Masks off the upper bits 
007A O2400FFF 48 and.w «6 #S#F#,d0 3 last 3 digits are noughts 0164 DAOS 163 add.b d3,d5 3 lower y co-ords of erasee 
O07E 662A 69 bne.s odd 3 If not, end 0166 O40500C8 164 sub.b  #200,d5 7 Calc. No. of dots trom top 
0080 4iFAFFFE 70 lea numflag,ad 3 Increase number of flags O16A S100FFFE 165 bsr vline i Rubs ‘em out 

0084 5210 71 addg.b #1, (a0) 3 by one O16E 5246 166 addq.w #1,d& } Move to next column 

0086 0C100003 72 cmp.b = #3, (a0) } Test to see if 3 present 0170 SICOFFES 167 dbf di,scrub 3 Erase next column 

00BA 646000180 73 bne print_flags 3 If not, update & return 0178 47FAQ9EG 168 lea crunch,a3 } Makes noise.... 

OO8E 4210 74 clr.b (a) 3 If yes, reset no. of flags 0178 7011 169 moveg #17,d0 ; 

0090 4LFAFFFE 75 lea num_bas,a0 3 These lines provide an extra O17A 4E41 170 trap #1 4 
0094 1010 76 Move.b (a0),d6 j base if more then three 0170 SO000FFZE 171 bra bombs 3} Drops new bomb 

0096 5210 77 addq.b #1, (a0) ; flags (3000 points) 0180 172 3 

0098 E94E 78 lsl.w #4,d6 3 Calculates pos. of new base 0180 173 ; Deals with destruction of the gun base by a falling bomb and saves 
OO9A SASS 79 addq.w #5,d6 ; 0180 174 3 partially destroyed barriers for re-creation on screen after 

OO9C 1E3COOFS BO move.b #248,d7 3 At bottom of screen 0180 175 3 replacement of new base 

OGAQ 7A08 gl moveg 48,05 3 0180 176 ; 

OOA2 b100FFA2 B82 bsr plot 3 Place a new base on screen 0180 177 base_dead j 

OOA6 61000182 az bsr rub_flag { Removes obselete fiags 0180 47FAQ9E4 178 lea base_bang,a3 5 Makes a noise... 

OOAR 4875 84 odd rts t 0184 7011 179 moveg #17,d0 3 

QOOAC 85 3 0186 4641 180 trap #1 ; 

OORC 6 ; This routine chooses the nearest invader to your gun base and 0188 Seer 181 addq.1 #4,a7 3 Removes return add. off stack 
OOAC 87 3 intitiates the bomb drop 018A 1ESCOOFO 182 move.b #240,d7 3 Sets up explosion position 
OOAC 98; O1BE 103AFFFE 183 waitexp move.b seq_num,d0 ; Completes any explosion 
OOAC 89 bombs q 0192 4708 184 beq.s okexp } sequence in the process 
OOAC 3C3AFFFE 90 MOVe.W gunpos,dé } read gun pos. into d& 0194 O100FFFE 185 bsr draws_bang i of actually 

OOBO 7600 91 moveq #0,d3 ; O198 SOOOFFF4 186 bra waitexp 3 exploding 

OOB2 343c1388 892 move.w #5000,d2 } Set closest yet to 5000 O19C S100FFFE 187 okexp bsr explode } Initialises explosion for gun 
OORS 41FAFFFE 93 lea xpos,a0 } (a lonnng way away.....) O1A0 GLOOFF92 188 bsr rev_bul 3 Remove bullet 

OOBA 43FAFFFE ea ypos,ai ; O1A4 G100FFEE 189 grows  bsr draws_bang : draw frame of explosion 


Pevenvennranseun 


2 O1A8 3O3COD0S 
Q1AC SICBFFFE 
0180 103AFFDC 
O1B4 SdEE 
O1B6 G100FFFE 
OIBA 41FAFFFE 
O1BE SOBCFFFF 
O1C2 41FAFECC 
0106" 5310 
O1CB &BOB 
O1CA 61000146 
OCE SOOOFFFE 
O1D2 41FAFE46 
01D6 203AFES2 
O1DA BO90 
O1DC 4302 
O1DE 2080 
O1E0 41000100 
O1E4 7207 & 
O1E6 S100FFFE 
O1EA 08010006 
OLEE 610 
O1FO 7205 
O1F2 S100FFF2 
O1FS 08010006 
O1FA 47EB 
O1FC G000FFFE 
0200 4640 
0202 3€780000 
0206 48780004 
020A 4E75——- 
020C 
020C 
020C 
020C 
020C 
0200 a1ic 
020E IC3COOFO 
0242 7A25 
0214 7800 
0216 183AFE68 
021A 6008 
021C 6100FE28 
0220 064460000 
0224 SICCFFFS 
0228 4£75 
022A 
022A 
022A 
022A 
022A 7E00 
022€ 3C3CO0FO 
0230 6100FDF4 
0234 06460010 
0238 S000FDEC 
023¢ 
023¢ 
023C 
023¢ 
0230 4244 
O23E 183AFESO 
0242 5304 
0244 6B14 
0246 7A08 
0248 7000 
024A 1E3COOFB 
O24E S100FDF4 
0252 06460010 
0256 SICCFFFS 
025A 4£75 
025C 
025C 
025C 
025 
O25C 41FA0918 
| 0260 5310 
| 0262 4A10 
| 0264 6A44 
| 0266 10BC0002 
| 026A 4IFAFFAE 
026E 3C10 
| 0270 7E00 
0272 610A 
| 0274 5B46 
0276 OC4S01EF 
027A 212 
0270 3086 
027E 7823 
0280 s100FDC4 
0284 06460008 
0288 7A24 
028A S000FDBA 
028E JOBCFFFF 
0292 41FAFFFE 
0296 43FAFEBC 
029A 3451 
029C 1092 
029E 0210003F 
02A2 00100010 
O2A6 5210 
O2A8 5451 
O2AA 4£75 
O2AC 
O2AC 
o2zac 
O2AC 
O2AC 43FA0596 
02B0 347AFFFE 
0284 4692 
02B4 43FA0S9B 
O2BA 347AFFFE 
O2BE 4€92 
0200 7002 
0202 4£42 
0204 20700002 
0208 332E 
O2CA 43FA0ZA8 
O2CE 7013 
o2D0 7211 
02D2 3208 
0204 SIC9FFFC 
02D8 DOFCOOSC 
O2DC SICSFFF2 
02E0 4675 
02E2 
02E2 
02E2 
02E2 
02E2 22760002 
O2E6 332E 
O2E8 41FA028A 
O2EC 7013 
O2EE 7211 
02F0 3208 


02F2 
02Fe 
O2FA 
O2FE 
0300 
0300 
0300 
0300 
0300 
0304 
0308 
030A 
O30E 
0312 
0312 
0312 
0312 
0312 
0312 
O316 
O31B 
osic 
0320 
0322 
0324 
0328 
032C 
O32E 
0332 
0334 
0334 


SICOFFFC 
D2FCOOSC 
SiCBFFF2 
4E75 


JESAFDEB 
3CIAFDDE 
TAOD 

61 00FDSA 
6000FD9C 


48E7FFFE 
7201 
6100FECC 
0BO10006 
67F4 
7201 
6100FECO 
08010006 
b6F4 
4CDF7FFF 
4E7S 


0334 
0334 
0334 


0334 
0334 
0574 
0574 
0844 
0844 
0848 
o84c 
0850 
0852 
0856 
BSA 
OB5E 
0862 
0866 
0866 
OB36 
OB36 
OB36 
0B38 
OBSC 
OB3E 
OB42 
OB4S 
OB46 
OB46 
OB4e 
OB4C 
OB4E 
OBS2 
OBSS 
OBS6 
OBS6 
0BS8 
OBSC 
OBSE 
OBb2 
OB65 


00000240 — 


00000168 


03020007 
00900014 
00BB0066 
0014 

2020504C 
41592020 
41474149 
4E202028 
S92F4E29 


00000168 


OAOB 
QOOORAAR 
1932 
02007017 
121201 


OAOB 
QOOOAAAA 
1450 
2003BB0B 
100001 


OA0B 
OOOOAAAA 
FAFF 
OL00BB0B 
23FFO1 


move.W #3333,d0 3 Pause between frames 
phut db¢ d0,phut ; 
move.b seg num,d0 3 until end of sequence 
bne.s grows : 
bsr savebarriers j Save barriers in buffer 
lea baddyx,a0 } Kill Mothership 
move.w #-1, (a0) ; 
lea num _bas,aQ j Decrease no, of lives 
subg:b #1, (a0) ; ° 
bmi.s endgane 3 If none left then end 
bsr waitkey 3 ELSE wait for key press 
bra restart j Restart 
endgame lea hiscore,ad : 
move.l1 score,d0 $ 
cmp.d (a0) ,d0 3 Compare score/hi~score 
bls.s not_hi 3 If score>hi-score 
move.! d0,(aQ) 3 then hi-score=score 
not_hi bsr load_message ; Move message to screen 
none_p moveg #7,d1 3 
bsr keyrow ; 
btst #6,d1 } 
bne.s reset 3 If n key pressed then reset 
moveq #5,d1 3 
bsr keyrow 3 
btst #o,dt ; 
“peg.-5 none_p 3 If not y key then wait 
bra warm 3 ELSE start new game 
reset trap #0 3 Set supervisor mode 
move $0,a7 ; Set stack to reset position 
pea $4 3; Push reset addr 
rts } RESET 
H 
} Prints flags at top of screen (1 per 1000 points - collect three 
3 for a bonus gun base!!!) 
i 
print_flags 3 
bsr.s  rub_flag } Remove old flags 
move.w #240,d6 } Set x-pos 
moveg #37,d5 } Set sprite number 
moveg #0,d4 3 Clear d4 ready for 
move.b numflag,d4 3 number of flags 
bra.s flaged } 
nexflag bsr plot 3 plot flag 
add.w = =#12,d6 ; Move pos for next flag 
flaged dbf d4,nexflag 3 loop 
rts 3 
; 
3 Removes old flags 
i 
rub_flag 3 
moveq #0,47 H 
move.W #240,d6 H 
bsr blank out H 
add.w = #16,d& 3 
bra blank _out H 
i 
i Prints spare lives (gun bases) at bottom RH corner of screen 
i 
print_bases 3 
clr.w 4 H 
move.b num_bas,d4 3 No. of bases into d4 
subq.b #1,d4 1 = 
bmi.s  ex_prb 3 If none then return 
moveq #8,d5 } Bases sprite number 
moveg #bas_pos,dé 3} X pos. of bases on screen 
move.b #248,d7 } y pos. of bases on screen 
pr loop bsr plot } plot base 
add.w #16,d6 } Move on 
db¢ d4,pr_loop } loop to next base 
ex_prb rts ; 
i 
} Moves the mother ship furtively across the top of the screeen 
3 
baddybus 5 
lea zeke,ad 5 Count down zeke 
subq.b #1, (a0) 
tst.b (a0) 3 
bpl.s retbad 3 lf <0 then return 
move.b #2, (a0) } ELSE reset zeke 
lea baddyx,a0 ; 
move.w (a0) ,d6 } Ship's x-pos into dé 
moveq 4#nemalt,d7 } Ship's y-pos into d7 
bsr.s saver } unplots ship 
subg.w #5,d6 3 
cmp. W W495 ,d6 3 I# edge of scr. then 
bhi.s endbad 3 kill ship 
move.w dé,(aQ) } Saves new position 
saver MOVE 435,05 } Replots ship sprite pt.! 
bsr plot 5 
add.w #8,d6 t 
moveg 936,05 3 Replots ship sprite pt.2 
bra plot 3 and return 
endbad move.w #-1,(a0) 5 Kill mother ship 
lea badwait,ad } Set random time delay 
lea rndpos,al 3; between appearances 
move.w (al) ,a2 , of the mother ship 
move.b (a2), (a0) 3 and prior to 
and.b #63, (a0) ; subsequent appearances 
or.b #16, (a0) : 
addq.b #1, (a0) ; 
addg.w #2, (al) : 
retbad rts 3 


H 
3 Establishhes 


3 
save_message 


window + borders and places message in centre 


3 

lea con_block,al ; Define window 

move.w ut_con,a2 3 

jsr (a2) 3 

lea message,al 7 print message 

move.w ut_mtext,a2 3 

isr (a2) 3 

moveq #2,d0 3 Close window 

trap #2 } 

move.l] #$2332e,a0 j Start addr. of window in RAM 

lea message _buff,ai ; Message buffer pos 

moveg #19,d0 3 No. of rows in window 
mesavel moveg #17,01 3; No. of columns in window 
mesave2 move.w (a0)+,(al)+ 3} move to buffer 

dbf di,mesave2 j Next column 

add.w #92,a0 3} Move to next row 

dbf d0,mesavel 3 Next row 

rts 3 


Moves message 


oad _message 


meload2 move.w 


from buffer to screen 


move.l #$2332e,a1 start pos. of window in RAM 
lea message _buff,a0 3 Message buffer 
moveg #19,d0 } No. of rows 
meloadl moveg #17,dt } No. of columns 
i 


(aO)+,lald+ 


move to screen 


OBG6 
OBb6 
OB68 
OBSC 
OBE OAD0204E 
OB72 ALFFO1 
OB75 00 

0B76 00 

0B77 26272728 
OB7B 27272727 
OB7F 27292927 
OBB4 


OA0B 
OOOOAAAA 
3237 


SYMBOLS + 


bar_tab 

zam 
base_buf 
no_spc 
meload2 
mesave2 
message buff 
message 
con_block 
badwait 
saver 
retbad 
baddybus 
bas_pos 
print_bases 
flaged 
reset 
none_p 
not_hi 
waitkey 
baddyx 

phut 
explode 
okexp 
waitexp 
crunch 
scrub 
bulposx 
hit_barrier 
base_dead 
id_col 
y_bomb 
itspos 
thing 

ypos 
gunpes 
rub_flag 
print_flags 
odd 

mess 

plot 

nexdig 
next_w 
score_poshi 
print_nua 
score_pos 


Read keyrow 1 


Then wait again 


db¢ di,meload2 3 Next coluan 
add.w #92,a1 } move to next row 
dbf d0,meloadt 3 Next row 
rts ; 
5 
3; Unplots bomb and drops a new one 
3 
endbomb ; 
move.b y_bomb,d7 H 
move.w x_bomb,dé HT 
moveqg #9,d5 ; 
bsr plot 3 
bra bombs 3 
j 
; Waits for a the space bar (Fire button) to be pressed and 
; then released 
3 
waitkey 3 
movem.] d0-d7/a0-a6,-(a7) 3 
no_spc moveg #1,d1 H 
bsr keyrow 3 Read keyrow 1 
btst #6,d1 3 If key not pressed 
beq.s no_spe 3 Then Wait again 
no_spc2 moveq #1,01 ; 
bsr keyrow ; 
btst #6,d1 3 If key pressed 
bne.s no_spc2 ; 
movem.1 (a7)+,d0-d7/a0-a6 } 
rts ; 
; This section was inadvertantly missed off the first issue 
3 and should be entered as shown at the very end of the program 
} or immediately following the definition of "rnd_pos". 
; 
base_buf 
ds.b 576 
message_buff 
ds.w 360 
con_block 
dcww $0302, $0007, 144,20,184,102 
message dct.w 20 
dc.b "PLAY AGAIN (Y/N)" 
align 
ds." 360 
align 
zap 
dc.b $0a,9 
dc] $0000aaaa 
de.b 25,50 
de,b 2,0, 112,23 
dce.b 19,18,1 
align 
zam 
dc.b $0a,8 
de.l $0000aaaa 
dc.b 20,80 
dc.b 32,3,184,11 
de.b 16,0,1 
align 
crunch 
dc.b $0a,8 
dc. $0000aaaa 
de.d 250,255 
dce.b 10,184, 11 
de.b $23,5FF,1 
align 
base_bang 
de.b $0a,8 
dc.l $0000aaaa 
deeb 50,55 
dc.b 10,0,32,78 
deb $al,$fF,1 
nexburp dc.b 0 
zeke dc.b 0 
bar_tab de.b 3B, 39,39, 40,39, 39,39,39,39,41, 41,39 
end 


ROOQOOOB77 =nexburp ROOO00B75 
ROQOOOB4S = zap ROOOOOBSS 
R00000334 no_spc2 R00000322 
RO0000316 endbomb RO0000300 
ROQ0002FO meloadt ROOOOOZEE 
ROOQ0002D2 mesavel R000002D0 
RO0000574 = ut_mtext U00000000 
ROG000850 ut_con U00000000 
RO0000B44 save_message ROOOOO2AC 
U00000000 endbad R0000028E 
RO000027E nemalt 00000000 
ROQOOO2ZAA zeke ROQOOOB74 
ROO00025C pr_loop RO0000024E 
U00000000 ex_prb RO000025A 
ROO00O2Z3C nexflag RooGOO2IC 
R00000224 warm u00000000 
R00000200 keyrow 00000000 
ROOOOOIE4 load_message ROOOOO2E2 
ROOOOOIEO restart U00000000 
ROQO00312 endgame RO00001D2 
U00000000 savebarriers 00000000 
ROOOOGIAC grows ROCOOO1A4 
¥00000000 draws_bang 400000000 
ROOODOI9IC seq num uoo000000 
ROOQOOOIBE base_bang ROQGOOBSS 
ROOOOOBS4 vline U00000000 
ROOOOOISA rndpos U00000000 
U00000000 ~rev_bul 400000000 
ROOOOO14C joe RO0000134 
RO0000180 ex_drop RO0000144 
U0G000000 drop_bomb ROOOOOOFA 
U00000000 = x_bomb U00000000 
ROOOOOOLCE grogy RooOOGoDE 
ROOOOCOCO num_sp U00000000 
U00000000 xpos U00000000 
U09000000 bombs ROOOOOOAL 
ROO00022A = num_bas U00060000 
RO000020C numflag U00000000 
ROQGOOGAA sub_dig ROOGOOOOSE 
U00000000 inc_score R00000058 
U00G00000 num_base U0d000000 
ROO0COO3SA blank_out 00000000 
R00000026 hiscore uo0ed0000 
U0000G000 print_hiscore ROOOOOOLS 
ROOOOOOIE score : uoooe0000 
U00000000 print_score ROG000000 
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~ Soundand... 


Though limited to a single sound generator, the QL can 


still produce some interesting effects. Robert Miles pitches in. 


The QL differs from the BBC in 
that it does not havea special 
chip to handle the sound, it’s 
produced instead by the 8049 
second processor which is also 
in charge of the keyboard. This 
means the amount of control 
available is more restricted (eg, 
there is no control over the 
loudness of the note). Even so 
some very interesting sounds 
can be produced on the QL. 

The command used to 
produce sound on the QL has 
the same name as on the 
Spectrum. However, the 
duration and pitch parameters 
are represented in quite a 
different way on the QL. The 
duration is specified in steps of 
72 microseconds, ie, 13889ths 
of asecond, up toa maximum 
length of 32767 steps (2.36 
seconds). If the duration is 
given as 0 the note will 
continue until terminated by 
another BEEP command 
which has an end point. The 
SuperBasic manual 
mysteriously says of the pitch 
value that 1 gives a high note 
and 255 gives a low note. What 
the guide does not say is that 
the pitch value changes the 
more complex you make the 
BEEP sound statement. 

For example, if you set a note 
playing with a duration of 0,a 
pitch value of 35 corresponds 
roughly to middle C, but if you 
give a different duration the 
pitch drops so that middle C is 
now nearer 34. The most 
drastic effects can be achieved 
by giving values for the “fuzzy” 
parameter (see later) which 
really push the pitch through 
the floor! Combined with the 
fact that gaps between the 
notes are not semitones, this 
means playing tunesisa 
rather fraught process. You 
can however produce some 
very interesting sound effects 
by using just a single BEEP 
command. 


Second Pitch 


Following the pitch parameter, 
asecond pitch value can be 
specified. This causes the pitch 
of the beep to move between 
two pitches at the specified 
rate. The rate of change is 
given in terms of the number of 
steps between each change in 
pitch, and the size of each 
change. For example, here is 
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the command to specify a start 
pitch of 10, a second pitch of 20, 
atime interval of 100 anda 
step size of 2: BEEP 
0,10,20,100,2. The note starts 
playing with pitch 10. After 
100 steps the pitch value goes 
up to 12, after 100 more steps it 
rises to 14 and so on until it 
reaches 20. Here the value 
starts to fall in steps of 2 until it 
reaches 10 and then the whole 
thing starts again. Since a time 
interval of 100 is very small 
you will hear a rapid trilling 
sound. If you increase the 
interval to 2000, ie, change the 
100 above to 2000, you will 
hear each individual change in 
pitch. 

The number of steps 
between each pitch change is 
called grad_x and it is given in 
the same units as the length of 
the sound. The manual 
incorrectly says that this can 
only vary between —32768 and 
15, whereas it can be used with 
values between —32767 and 
32768. 

The size of each change in 
pitch is called grad_y andis 
given in the same units as the 
pitch (from —8 to 7). Remember 
that the higher the pitch value, 
the lower the pitch anda 
negative value means the pitch 
gets higher initially. 

An interesting thing to note 
is that the pitch value ‘loops 
round’, that is, if you add 1 to 
255 (low note) you get a pitch of 
0 (high note). This can result in 
some amazing effects by 
making the pitch ‘change’ in 
the wrong direction. 


Wrapping Up 

The set of second pitch 
information can be followed by 
a value giving the number of 
‘wraps’ the pitch change will 
undergo. Normally the 
movement in pitch changes 
direction each time it reaches 
its end point. Thus our scale 
above first climbs to the top 
and then climbs back down 
again, giving an up and down 
effect. 

Youcan stop this happening, 
and make the sound go back to 
its initial pitch and start 
climbing up again, by givinga 
value for the number of ‘wraps’ 
to be performed. For example, 
in the scale above if we added a 
‘wrap’ value of 1 when the first 


scale was completed, instead of 
climbing back down again the 
scale would start at the low end 
and climb upwards, 
performing 1 wrap. The scale 
would then go up to the top, 
and since the required number 
of wraps has been performed, 
go back down again. Once it 
has reached the bottom it 
would then start at the top 
again, performing the same 
wrap only upside down! This is 
considerably more difficult to 
explainthanitisto — 
understand. 

The number of wraps can be 
given from 0 to 15, with 15 
meaning wrap all the time. You 
can use the wrap effect along 
with frequent changes in pitch 
to produce some very complex 
effects. 

The wrap parameter can be 
followed by a ‘fuzz’ value which 
dramatically affects the sound 
produced. It very rapidly 
changes the pitch of the note as 
itis played. It can also divide 
the speed at which things 
happen by a factor of about 10, 
so that if you add fuzz to a note 
it will become deeper and any 
pitch changes will take place 
more slowly. 


Random Value 


The final parameter is the 
‘random’ one. This can be used 
to produce mind-boggling 
sounds. When a ‘random’ value 
is given, a random offset is 
added to the pitch value. The 
amount ofrandomness added 
depends on the value of this 
parameter, it seems to start 
having an effect at around 5 
and by the time you reach the 
maximum value of 15 ithas 
made the original sound 
completely unrecognisable! 

Here are a few intgeresting 
sounds to try out. See if you 
agree with the names! 

Chickens: 

BEEP 0,10,10,170,-8,0,0,8 

Sub-space radio: 

BEEP 0,255,1,200,-1,5,0,9 

Racing car: 

BEEP 0,100,250,1000,— 
1,2,10,8 

Police siren: 

BEEP 0,30,37,9000,7,0,0,0 

Tuneful: 

BEEP 0,1,1,4500,0,5,0,9 

Finally, for further 
experimentation — readers 
should refer back to the sound 
program in our May issue 
(page 37). 


Vi f 

A very famous problem in 
mathematics is the following: 
How many colours do you need 
to colour a map so that no two 
countries sharing a border are 
shaded with the same colour? 
(countries meeting at a point 
are not regarded as sharing a 
border). This problem has been 
around since the mid- 
nineteenth century. The 


1 REMark * QL User 1985 ** 
4 REMark *** MAPCOL x**xxx« 
S REMark ** P.J.Derlien ** 
G& REMark EX KHHHKHRKKRKHER 
20 SCALE 


max 


answer has long been 
suspected to be four, but it was 
only in 1976 that proof was 
given for this, and a rather 
complicated one it turned out 
to be, requiring the help of a 
computer for the exhaustive 
analysis of all possible cases 
(see Appel and Haken — 
Scientific American Oct. 1977 
if you are interested in 
complicated mathematical 
proofs). 

This article is about a special 
case of the 4-colour map 
problem. 


100,0,0: INK 7:PAPER 0 
30 OPEN #3,scr_310x220a44x6 
40 MODE 4: INFUT "How many countries on the map? "3 


SO DIM addr (maxC) ,size(maxC) ,ynewpt (2,1) , vert (1000) 


100 REPeat main 


110 initialize 

120 FOR times=1 TO maxC-1 

130 split largest 

140 NEXT times 

1590 x=50: y=50 

160 whichregion 

170 AT #0,3,0:PRINT #0,"press SPACE for another 
map, ESC to finish":k#=INKEY$(-1) 
180 IF CODE (k#)=27 THEN EXIT main 
200 END REFeat main 

499 5 


500 DEFine PROCedure initialize 


SOS RANDOMISE 
510 MODE 4 


515 colour4=106 
517 BORDER #3,10,colour4 
520 colours 


530 RESTORE 4660 

S40 addr (1)=0 

S50 READ vert (0) 

360 k=2*vert (0) 

570 FOR j=1 TO k 

5380 READ vert(j) 

S90 NEXT j 

600 nextfree=k+1 

605 size(1)=400:totalsize=400 

610 Nregions=1 

620 polygon 1,vert(o) 

650 END DEFine initialize 

660 DATA 4, 12,0, 112,0, 112,100, 12,100 
699 +: 

700 DEFine FuNction largest 

710 LOCal max,n 

720 max=size(1)in=1 

730 FOR j=1 TO Nregions 

740 IF size(j)>max THEN n=j 

750 NEXT j 

760 RETurn n 

770 END DEFine largest 

999 4 

1000 DEFine PROCedure markerspot (x,y,k) 
1010 LOCal n 

1020 REPeat blob 

1030 k=CODE (INKEY#) 

1040 n=KEYROW (1) 

1050 IF k>47 AND k<S3 THEN EXIT blob 
1060 INK O:POINT x,y: INK 7 

1070) K=K+ (0 (M&K 16) =16) #2— ( (M&&2) =2Z) HZ 
1080) y=y+((M&&4) =4) #2—( (m&&128) =128) #2 
1090 POINT x,y 

1100 END REPeat blob 

1110 END DEFine markerspot 

1199 : 

1200 DEFine PROCedure split (region) 
1210 start=addr (region) 

1220 nv=vert (start) 

1230 newedge nv,Vichoice,viplus 

1235 cutline=ABS (newpt (2,0) —newpt (1,0) )+ABS (newpt ( 
2,1)-newpt(1,1)) 

1240 oldv=(Vichoice+1) MOD nv 

1245 source=start+i+oldv%2 

1340 store Nregionst+1,1,viplus,2 

1470 nextfree=pt2 

1475 store region,2,nv-viplus,1 

1640 Nregions=Nregions+1 

1650 nextfree=pt+2 

1660 END DEFine split 

1699 : 

1700 DEFine PROCedure newedge (nv,Vichoice,viplus) 
1720 REFeat tester 

1730 Vichoice=RND (nv-1) 

1740 breakline Vichoice,1 

1745 IF NOT(pass) THEN NEXT tester 
1750 viplus=2 

1770 vachoice=(Vichoice + viplus) MOD nv 
1780 breakline v2choice,2 

1783 IF pass THEN EXIT tester 

1785 END REPeat tester 

1790 LINE newpt(1,0) ,newpt (1,1) TO newpt (2,0) ,newp 
t(2,1) 

1800 END DEFine newedge 

1999 : 

2000 DEFine PROCedure breakline(v,n) 
2010 LOCal a,px,py,qx,qy,frac 

2015 pass=0 

2020 a=start+1l+v*2 

2030 px=vert (a) rpy=vert (atl) 

2040 a=start+1+(vt+1)M0D nv*2 

2050 qx=vert (a) sqy=vert (at+1) 

2060 frac=.25+RND#*.5 

2080 newpt (n,O)=(1-frac) *px+frac*qx 
2090 newpt (n,1)=(1-frac) *py+frackgy 
2095 IF ABS (px-qx)+ABS(py-qy) >10 THEN pass=1 
2100 END DEFine breakline 

2999 & 

3000 DEFine PROCedure store (newR,a,n,b) 
3010 p=nextfree 

3020 addr (newR) =p 

3030 vert (p)=n+2 

3040 p=p+1 


3050 vert (p)=newpt (a,0) 

3060 vert (pt+1)=newpt (a,1) 

3070 size (newR) =cutline 

3080 p=pt+2 

3090 previousx=newpt (a,0) :previousy=newpt (a,1) 
3100 FOR j=1 TOn 


3110 vert (p)=vert (source) 
3120 vert (p+1)=vert (source+1) 
3130 size (newR) =size (newR) +ABS (vert (p) -previousx 


)+ABS (vert (p+1)—-previousy) 

3140 previousx=vert (p) tpreviousy=vert (p+1) 

3150 p=p+2 

3160 oldv=(oldv+1) MOD nv 

3170 source=startt+i+oldv#2 

3180 NEXT j 

3190 vert (p)=newpt (b,0) 

3200 vert (pt+1)=newpt (b,1) 

3210 size (newR) =size (newR) +ABS (newpt (b,0)-previous 
x) +ABS (newpt (b,1)-previousy) 

3220 totalsize=totalsize-size (region) +size (newR) 
3230 END. DEFine store 

11999 : 

12000 DEFine PROCedure whichregion 

12010 PRINT #0,\"Move spot with cursor keys"\"Pres 
s 1,2,3, or 4 to colour, 0 to escape" 

12020 REPeat ask 

12040 markerspot x,y,hue 

12050 IF hue=48 THEN EXIT ask 

12060 AT #0,3,0:CLS #0,3:FRINT #0,"region "3; 
12070 FOR area=1 TO Nregions 

12080 inside=seeifin(area,x,y) 

12090 IF inside THEN PRINT #0,area:shade area, 
hue-48:EXIT area 

12100 END FOR area 

12110 END REPeat ask 

12120 END DEFine whichregion 

12199 +: 

12200 DEFine FuNction leftfromedge(v,x,y) 

12210 LOCal i,j 

12220 i=spos+v*¥2 

12230 j=spos+ (v+1) MOD npts #2 

12240 RETurn ((vert(j)-vert(i))*ly-vert (i+1))-(ver 
t(j+1)—-vert (i+1))*#(x-vert (i) ) >0) 

12250 END DEFine leftfromedge 

12499 : oor 

12500 DEFine FuNction seeifin(r,x,y) 

12510 LOCal i,k,ans 

12520 npts=vert (addr (r)) 

12530 spos=addr (r)+1 

12540 FOR i=0 TO npts-1 

12550 IF NOT(leftfromedgeli,x,y)) THEN ans=0:EXI 


12560 NEXT i 

12570 ans=1 

12580 END FOR i 

12590 RETurn ans 

12600 END DEFine seeifin 

13999 3 

14000 DEFine PROCedure shade (region,tint) 
14010 LOCal spos,n,ij,p 

14020 spos=addr (region) +1 

14030 n=vert (spos-1) 

14040 INK paint(tint):FILL 1 

14050 polygon spos,n 

14060 FILL O 

14070 INK O:polygon spos,n:INK 7 

14130 END DEFine shade 

14999 : 

15000 DEFine PROCedure colours 

15010 DIM paint (4) 

15020 paint(1)=7:paint (2)=S: paint (3) =2: paint (4)=co 


15030 FOR c=1 TO 4 

15040 BLOCK 20,20,400,c#40-5,paint (c) 
15050 AT c#4,64:PRINT c 

15060 NEXT c 

15070 END DEFine colours 

15999 =: 

16000 DEFine PROCedure polygon(spos,n) 
16010 LOCal j,p 

16050 LINE vert (spos) ,vert (spos+1) 
16060 FOR j=1 TO n 

16070 p=spos+ j MOD n * 2 

16080 LINE TO vert (p) ,vert (p+1) 
16090 NEXT j 

16190 END DEFine polygon 


QL User/July 1985/27 


TRORnKORM Tb, nae Pte 


@ Holds 20 cartridges and index cards 
@ Fully interlocking , 


Spectrum and QL 


QL Centronics Interface 00.0. ccc cece cece eee, $29.95 
QL Dust Cover oo... cece cece eee, £5.00 
QL RS 232 Lead 2... ccc ccce cree eee £10.00 


QL Monitor 


Microdrive Cartridges .....0 0... c cece cece ee eeeees £1.99 
Spectrum R.G.B. Connector 


£45.00 
Spectrum repairs ....................... 000 eee, £18.95 


C if 
WH Smith's and leading ; 


computer shops ; ribbon and listing paper. 


(#4) TRANSFORM LTD. (Dept.QL) 089283 4783 pam 
_ Swatlands; Lucks Lane, Paddock Wood, Kent TN12 6QL. 
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Available from selected 


AN IMPORTANT ANNOUNCEMENT TO ALL OL OWNERS 


bad orchanged medium 


Your data is worth a lot to you. Source programs, text, scientific information, records, all 
represent hours of your time and effort. Losing a file could at worst cost you money — and it's 
always infuriating! 


No storage medium is 100% reliable. That's why TALENT has developed the CARTRIDGE 
DOCTOR. It’s a sophisticated machine code program which will, in most cases, enable you to: 


@ recover files from a bad medium 
@ recover files which have been accidentally deleted 
@ recover files with lost or damaged blocks using the ‘block patch’ utility. 
It's very easy to operate and no knowledge of BASIC or machine code is required. 
Can YOU afford to be without the CARTRIDGE DOCTOR? 


Available only from: 
£21.95 


Ss ob = 


+ 50p postage & packin N i EE 
QLisa letcil at bent dah La a Va n& 
COMPUTER SYSTEMS 
Curran Building, 
101 St. James Road, Glasgow G4 ONS 
Tel: 041-552 2128 (ACCESS & VISA accepted) 


EEE SOFTWARE FROM SCOTLAND 
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SUBSCRIPTION 


One year’s subscription 
FOR A LIMITED PERIOD ONLY 


For the next three months only, we are 
offering a full year’s subscription to QL User 
for just £11.40 — that’s £1.60 off the usual 
price of £13. 

Just complete and return the form below 
and we will deliver OL User direct to your 
home for the same as it costs to buy in the 
shops! 

BUT THAT'SNOT ALL BECAUSE...asa 
subscriber to OL User you'll also enjoy the 
benefits of two other great deals: 

@ 10% discount on the Microdrive 

Exchange 

e Access to the OL User Technical 

helpline 


The Microdrive Exchange is a special readers’ service 
exclusive to OL User and in the back of this magazine. 

Just send us a blank microdrive and for a small 
administration charge (£1-£5 including the author's royalty) 
we'll copy onto it any listings from the magazine. 

As a subscriber to OL User you can deduct 10% from the 
total price on all your orders just by quoting your subscription 
number — it’s an easy way to save money. 


The OL User Technical Helpline is available outside working 
hours (before 9.30am and after 5.30pm, or at weekends). 
Subscribers can leave a short message detailing any 
problem concerning the OL, its software or hardware (one 
question per call). 
Within 48 hours an answer will be winging its way to you 
by first class post. 


To take advantage of this special offer just fill 
in the form below and return it no later than 
30th September 1985: 


Return completed forms to: Carl Dunne, Magazine Services (Dept 
QL), Priory Court, 30-32 Farringdon Lane, London EC1R 3AU 


CUT HERE 


would like to subscribe to OL User at the specially reduced rate of 
1.40 (12 issues). 


l enclose acheque/PO for £11.40 made payable to OL User 
Please debit £11.40 from my Access/Visa* card account 


mh 


Account Number. 


Card Expiry Date 


Signature 


(*delete as applicable) 


NAME 


ADDRESS 


[es 


Readers’ Survey 


Here it is — your chance to +PRIZE DRAW 


influence the way we put QL 
User together and (perhaps!) the QL market as well. 

Just complete the questionnaire below, tear out the page and fold it as 
shown — we’ve paid the postage. And as an extra incentive we'll be giving 
away 10 QL books to 10 lucky readers in a free prize draw to be held on 
31st July 1985 — so send your completed surveys now! 


1. Doyou own aQL ] 
If so, what is its serial number ................0.....0.00..000cccceeeeeee 


2. Which of these computers (if any) do you own 


O Amstrad Mackintosh 
Apricot Memotech 
Atari Oric Atmos 
BBC B Sharp 
CBM 64 Sinclair ZX81 
0 Dragon Sinclair Spectrum 
O Electron Spectravideo 
OO IBM PC Tandy 
CO Lynx Texas 
3. Which, if any, peripherals do you have 
Monitor (not TV) Printer 
Disk drive Parallel convertor 
Joystick Expansion card 


4. About how many hours per week do you spend using your 
computer kv eceeeeceeeeeteeeeeueenes 


How much of that time (approximately) is spent on each of the 
following 
Leisure 

Writing programs 
Learning/education 
Business 

Working at home 
5. What are the two most likely (in order) peripherals you will buy 
in the next 12 months (select from the list in question 3) 


ALL 75% HALF 25% NONE 


6. How many microdrives with programs on (eg, Toolkit) have you 
bought in the last 6 months 
>10 6-9 3-5 1-2 0 
oO O O oO oO 
7. Which issues, if any, of QL User did you buy in the last 6 months 
DEC/JAN FEB MAR APR MAY JUN 


Oo Oo O [a Oo 
8. How many other people, if any, regularly read your copy of 


9. How often do you buy any of the following magazines 


EVERY OFTEN SOME- NEVER 
MTH/WK TIMES 


Computer & Video Games 
Electronics & Computing 
What Micro 

Your Computer 

Popular Computing Weekly 
Sinclair User 

Personal Computer World 


Personal Details: If you wish to be included in the prize 
draw please complete this section. 


Sex MALE Age  under13 14-16 17-18 19-21 22-24 
FEMALE 25-30 31-35 36-44 45-55 over 55 
OCCUPATION ses se see seen nce gene care exes ase epee dune ae setae 
<£5000 © £5-8000 £8-10,000 £10K-£15K £15K-£20K  >£20K 
Salary 
INT S spor srs essere sree sc srg seasecine sige icraprd dag cerses eens sags omitgre aeledas Reet 
PRUE CSS gcse spccee see sits aecme tapes dat iron, adrasdetreiimsciadrades oicke ete a tiaioneree 
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FIRST FOLD 


————— ee ee ee ee ee 


THIRD FOLD (TUCK IN) 


Postage Do not affix postage stamps if posted in 
will be Great Britain, Channel Islands, Northern Ireland 
paid by or the Isle of Man 


licensee 


BUSINESS REPLY SERVICE 
LICENCE NO. 79/4 


QL USER 

PRIORY COURT 

30/32 FARRINGDON LANE 
LONDON EC1R 3AU 


The language of the future, LISP; and two profes 


ie i iler for the QL! 
vailable, a true Pascal compiler 
peal oe by Metacomco: <[oe ali see oi first 
i ISO valida 
software house to achieve fu ‘Salhi 
mpiler for the 68000. QL Pascal Is g 
ae implementation of this popular language, 


endorsed by Sinclair Research for use on the QL. 
> True compiler producing native 68000 code: 
compact and efficient. . . . 
Bs ter single pass compilation without intermediate 
stages. 

i i 7185 - the 

lete implementation of ISO 7185 -t 

eemebonel sendare for Pascal - making it ideal for 
commercial and educational use. 
> Direct addressing of the full QL address dem ; 
> Key routines provided on ROM for extra speed an 
convenience. . 
> No run time licences required for commercial 
applications written using QL Pascal. 


ASSEMBLER 


Motorola instruction set. 


BCPL 


writing utilities, games and applications. 
Features: generates native 68000 cod 


with Pascal or assembler. 


LISP 


Write programs to unlock the multitasking power of your QL! 
Choose the language you need from Metacomco’'s unrivalled range 
of high-quality languages for the QL: The best selling ASSEMBLER; 


sional compilers, 
BCPL and PASCAL. 


£39.95 INC. VAT 


Ahigh specification macro assembler supporting the full 


Features: external references; absolute, position 
independent, and relocatable code; linker; precise error 
messages; formatted listings; macro expansions; 
conditional assembly; and a large range of directives. 


£59.95 INC. VAT 


A true compiler, ideal for systems programming - 


e; runtime 


library includes easy QDOS interfaces: link loader links 
separately compiled segments; modules can be linked 


£59.95 ic.var 


> Any length variable names and full 32-bit (ria 

> Easy to use interfaces to QL cage ics, 

traps, screen handling, file operations, etc. : 

S Will handle very large sets an 
S. 

eine by Sinclair Research 

for use on the QL. 


artificial intelligence”. 


A LISP interpreter for exploring “The language of 


Features: Turtle graphics; compatible with LISP 
for the BBC micro; full support of QL features; struc- 
ture editor; prettyprinter; garbage collector and tracer. 


Every DEVELOPMENT KIT includes Metacomco's 
popular screen editor, and a detailed manual. 


en, ae 


Phone today or post this c 


oupon to: 
sisi Metacomco, 26 Portland Square, 
The Metacomco Development Kits are | waste Erpaehiss Sait Pibkas een Was 
available from W.H. Smith, John Lewis, = Assembler Development Kit £39.95 — 
HMV, Menzies, Boots and other leading LISP Development Kit ean 
retailers, or direct from Metacomco. 


BCPL Development Kit £5995, 
. POSTCODE QL PASCAL Development Kit£89.95 __ 
We a U RE | scale | enclose a cheque for £ 


= __or 
a debit my ACCESS/VISA Account No. 
26 Portland Square, Bristol BS2 8RZ. 


RESEED | 
Tel: Bristol (0272) 428781 | 


QL and QDOS are the trade names of Sinclair Research Ltd. 


CARD EXPIRY DATE: 


Price includes VAT, postage and packing UK mainland only. Delivery, allow up to 28 days. 
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Full microdrive emulation facility. 


Incorporates more Toolkit commands 
than any other system. 

Insider disk interface only £99 + VAT. 
Compatible with any two 3”, 314” or 
94," independently powered disk 
drives. 

Supports 40 or 80 track, single or 
double sided drives offering up to 1.4 
megabytes formatted storage capacity. 
Fits snugly inside the case of the QL, 
connecting to the main expansion port. 
Advanced design incorporates custom 
chip technology. 

Fast access times eg. boots ‘Quill’ in 
under 10 seconds. 

Software designed by the author of 
QDOS to ensure full compatibility with 
all Sinclair hardware and software 
revisions. 

Full two year guarantee. 


Supplied with comprehensive user 


manual. 


Complete disk systems available from 
£217 + VAT. 


For immediate despatch of goods you can order 
now by phoning us on Leicester (0533) 374917 


quoting your Access card number. 


Or fill in and post the coupon - no stamp 
required - and we will despatch your goods 


within 14 days. 


Sinclair, QLand QDOS are registered trade marks of Sinclair Research Ltd 


% 314” Disk Drives now 
available. 

vw All cards contain 
complete ROM-based 
toolkit utility. 


ro posted in the UK 


No stame require’ 
: ot 
ers, rnc! 


RDER F FORM 
n 


Name 
nadres> 
QuS 


eNAl, post and packine 


prices wneud! 


SAGESOFT 


Business software has been a long 
time coming on the QL. With Cash 
Trader (reviewed May) and now 
Sagesoft’s accounts the waiting 
would appear to be over. The former, 
easy to use though with limited credit 
balance facilities caters to the small 
business and sole trader. The latter, 
with its integrated ledger system and 
extensive reporting facilities is quite 
‘ capable of supporting large scale 
company accounts. 

Packaged in the usual black plastic 
Sinclair livery, Sagesoft’s product 
consists of an extensive manual and 
some 220K of code (written in C) 
spread across three microdrive car- 
tridges and broken down into four 
programs dealing with REPorts, 
POSTings, UTILities and IN- 
STALLation procedures. Programs 
are run by typing the command 
‘CRUN’ followed by the program 
name. Explicit instructions are given 
in the manual as to which program to 
run and when, however, a few accom- 
panying on-screen prompts would 
not have gone amiss. 


SoFTWARE SET UP 


Getting Sagesoft’s system up and 
running requires a good deal of 
preparation and takes the better part 
of a day. The first task is to decide 
upon the best possible storage 
medium bearing in mind the needs of 
your business and the following 
allocations (in bytes) made by the 
programs: 


Reserved to run the 


programs 2366 


133 
133 
33 


+ 
Each sales ledger a/c 


Each purchase ledger a/c 

Each nominal ledger a/c 
< 

Each transaction 


76— 


From these figures you don’t have to 
be a genius to work out that a 
business requiring 100 Sales, 75 
purchase and 60 nominal accounts 
leaves room for around 1000 transac- 
tions per microdrive cartridge, 
10,000 per single sided (860K) floppy 
and 20,000 for the double-sided 
(720K) variety. 

However, before rushing out to buy 
disk drives it should be noted that the 
programs keep close watch on re- 
maining storage and prompt the user 
to run a special reconfiguration prog- 
ram when 90% capacity has been 
reached. The routine first requires 
the user to print period analyses and 
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then carries forward to blank a 
cartridge or floppy all ‘live’ transac- 
tions (ie. those relating to balances 
outstanding) along with the aged 
debtors, audit trial and extended trial 
balance. 
Reconfiguring (on a monthly basis) 
then, not only provides a convenient 
way to organise printed records but 
means that relatively large account- 
ing systems may be efficiently main- 
tained on a QL with only limited tape 
or disk capacity. In our example, 
provided the monthly volume of 
transactions falls below 1000 it would 
be possible to spread a year’s 
accounts over 12 microdrives thereby 
obviating the expense of a disk drive. 
Once device designators have been 


Paolo Baccanello examines an 
integrated accounts package and 
decides it’s another winner in the 

profesional software stakes. 


professional software stakes. 


set (ie mdv, flp, fdk etc) and the data 
disk or cartridge configured the user 
moves on to allocate six digit numeric 
account codes to the Debtor, Creditor 
& Tax Control accounts as well as 
Bank, Cash and Discount accounts. 
All other codes (Sales-alphanumeric, 
Purchase-alphanumeric or Nominal- 
numeric) are entered through the 
POSTings module. Linking account 
creation and transaction entry so 
closely together results in consider- 
able savings in time and effort as the 
operator needs only switch menus to 
move from one operation to the other. 

The final stage in setting up the 
system involves installing a printer 
driver and defining the various tax 
rates to be levied on the business’s 


PHOTO BY TERRY BEDDIS 


transactions. Up to 10 rates may be 
defined and are referenced by a two 
digit alphanumeric code (ie, Tl = 
15%). Transactions must be entered 
nett during posting and then followed 
by an appropriate tax code. The 
program will then automatically 
gross up the transaction and debit or 
credit the tax amount to a pre- 
defined tax account. 


RECORD KEEPING 


All data entry takes place in the 
POSTings module. Here each ledger 
appears a separate option on the 
control menu. Further sub-menus 
divide data entry into a number of 
clearly recognisable operations. For 
example, having decided to work on 
the Sales or Purchase Ledgers the 
user may choose between creating a 
new account or entering invoices, 
credit notes or receipts. Interestingly, 
Cash and Petty Cash entries are 
classified as nominal ledger opera- 
tions alongside account creation and 
journal entries. 

The actual process of entering the 
data is standard throughout the mod- 
ule. Numbers, accounts codes or Text 
are entered one at a time in a small 
box at the foot of the screen. Each 
entry is then validated. For example, 
if a nominal account code is expected 
then the program checks to see 
whether that code in fact exists. If it 
doesn’t exist the entry is disallowed, 
otherwise it is displayed at a position 
highlighted by the cursor on the main 
screen. Additionally, the operator 
may use the cursor keys to highlight 
previous entries and so amend them. 
Pressing the ESC at any time will 
terminate entry and gives the oper- 
ator the choice of whether to POST all 
transactions displayed or abort. 
Altogether then, the process is sim- 
ple, easily remembered and virtually 
idiot proof. 

When it comes to dealing with 
receipts and payments the package 
allows for both manual or automatic 
matching against customer Sales or 
Purchase invoices. The former 
method provides an easy way to 
record part or discounted payments. 
The latter simply matches off any 
balance against transactions in the 
order in which they appear on the 
clients account. 

Finally, as regards journal entries, 
batch postings may be easily entered 
though, obviously, the operator will 
not be allowed to leave the option 
until both sides of the double entry 
are complete. 


REPORTS GENERATION 


The REPorts module is where Sage- 
soft’s package comes into its own. The 
various reports that may be produced 
are listed below: 


The reports are fairly standard to 
most businesses and need no ex- 
planation. However, a few points 
should be noted. First, with respect to 
statements and remittance advices, 
there are no facilities to alter the 
print layouts. User’s will either have 
to obtain the pre-printed stationary 
from Sagesoft themselves or else 
have their own made up to suit the 
package. Bearing in mind the pack- 
age’s low cost and the fact that 
defining one’s layout is often complex 
and time consuming this is only a 
minor niggle. 

Secondly, on the plus side, the tax 
return not only summarises total tax 
and nett for inputs and outputs for 
each of the ten tax codes but also goes 
to analyse each transaction type. 

Finally, the audit trial report 
which lists every single posting made 
to the accounts (and forms the basis 
of all other reports) is organised in 
such a fashion that invoice or pay- 
ment details appear alongside the 
transaction to which they relate. This 
makes it particularly easy for an 
auditor to trace back the settlement 
of outstanding balances and identify 
mispostings. 

On a more general level, most 
reports may be displayed to the 
screen as well as printed out. Also, 
wherever appropriate, Sagesoft have 
permitted a range of accounts to be 
specified. As regards the Sales and 
Purchases this means that the oper- 
ator can use the REPorts module to 
deal with customer enquiries. The 
ability to use an abbreviation of 
customer’s name for his account code 
ae enhances this ‘psuedo’ facil- 


O eaally, to produce a Balanc¢e Sheet 
or Trading and Profit and Loss 
account the user must return to the 
UTILities module first used to set up 
the system. Here he is required to 
identify groups of nominal ledger 
accounts either as assets or liabilities 
to appear on the balance sheet or as 
an items of income or expenditure on 
the profit and loss account. The exact 


Sales or Purchase Ledgers 


List of account names 
Summaries and aged breakdowns 
of accounts 

Account history 

Statements or remittance 
advices 


Nominal Ledger 
List of account names 


Trial balance 
Account history 
Control account breakdowns 


Management Reports 
Day books 

List of journal entries 
Tax return* 

Audit trial 


* Printer only 


classifications are: 


Balance Sheet 
Fixed Assets 
Current Assets 


Profit & Loss A/C 
Sales 

Purchases 
Direct Expenses 
Overheads (1) 
Overheads (2) 
Overheads (3) 


Liabilities 
Financed by: 


At this juncture the importance of 
having carefully planned your 
nominal ledger codes from the outset 
becomes all too apparent in that no 
more than five ranges of accounts 
codes may be assigned to any one 
classification. However, provided 
that codes are logically organised 
then this device will permit complex 
and comprehensive financial reports 
to pieced together and even amended 
with comparative ease. 

Finally, we should add that though 
adequately explained in the manual, 
the job of selecting account codes and 
organising accounts into their va- 
rious classifications should not be 
taken on lightly by users with limited 
accounting knowledge. Distinctions 
tend to blur and misclassifications 
may produce wholly unrepresenta- 
tive financial statements. Here a few 
hours in the company of an accoun- 
tant whilst setting up the system 
may well save many hours of correc- 
tive postings at a later date. 

As a whole, Sagesoft’s accounts 
come across as a professional and well 
finished product. A simple and logi- 
cally organised system of menus 
common to all the programs makes it 
easy to move from one operation to 
the next. Additionally, screen layouts 
throughout are attractive and easily 
legible, making full use of the QL’s 
windowing capabilities. The manual 
supplied is well written and replete 
with useful examples. Here we were 
pleased to see that not only had much 
lip service been paid to the import- 
ance of making backup copies on a 
regular basis but also a workable 
system for doing so had been ex- 
pounded. If the software is to be used 
to keep reliable records on any 
magnetic medium, let alone microd- 
rive cartridges, such a system is a 
must. Also, for those with queries not 
covered by the manual Sagesoft have 
opened. up a ‘hot line’ service. This 
will be available free of charge for 90 
days after purchase and thereafter 
for a year at a cost of £40. The fee will 
also entitle users to free updates of 
the software as well. 

Sagesoft’s accounting software is 
something of a breakthrough on the 
QL. The ease with which accounts 
may be maintained and reports ex- 
tracted belies its sophistication. 
Priced at £89.50 it represents ex- 
ceedingly good value, especially 
against other dearer packages. 


Available from leading computer 
stores and Sinclair direct. 
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Anew series of applications for 
Psion’s Archive database — 
Andy Carmichael kicks off with the 
construction of a family tree. 


If you’ve had your QL and the Psion 
software since before the days of the 
version 2.0 upgrade, you will no 
doubt have discovered that the Arc- 
hive package is a most useful tool, 
suitable for simple database applica- 
tions like an address list, club mem- 
bership records, keeping track of a 
collection of stamps or photographs 
and many other such tasks. The 
Archive commands insert, alter, 
order, search, find and so on, may 
well be enough for creating and using 
the database without the need to set 
up your own commands with proce- 
dures, except perhaps for printing 
reports, labels or whatever. On the 
other hand if you tried to use proce- 
dures in earnest with version 1.0, or 
attempted to set up medium to large 
data files (over 500 records) you 
would probably have hit snags simi- 


THE THEORY OF RELATIVITY 


lar to those that dogged the develop- 
ment of this ‘family tree’ database. 
Happily version 2.0 changed all that 
and if you have the upgraded soft- 
ware, now is the time to get down to 
some more ambitious applications! 
Some problems remain of course and 
we would advise readers to refer to 
the section entitled “wise words” 
before constructing their own data- 
base along the lines suggested in this 
article. Basically, make sure you 
back everything up. 

Many of the more sophisticated 
databases currently available are 
described as “relational”. This tag 
refers to a database in which data is 
arranged in “relations” (or tables) 
which are then manipulated algeb- 
raically using complex formulae and 
esoteric symbols. The overall effect is 
to simplify the structure of the data 
and so make that information more 
manageable. 

Whilst Archive is not a “relational” 
database in the strict definition of the 
word, it does make use of some 
relational principles. Notably it is all 
based on tables of data. In practise 
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this has meant that unlike simple 
‘cardbox’ databases, Archive is cap- 
able of manipulating multiple files of 
information and permits the user to 
build up linked list records. Our 
“family tree” database illustrates 
this capability. Additionally it pro- 
vides a useful tool for those interested 
in tracing their lineage. 


RISKY BUSINESS 


There are two main points of interest 
in a family tree: the individual people 
in it, and the relationships between 
them. The purpose of this package is 
to display details about an individual, 
showing his immediate family as a 
small tree, and then to move around 
the database from person to person 
constructing further trees on the 
screen according to the various rela- 
tionships between them. Thus to go 
to a person’s father you would first 
press { (up arrow), to find their wife 
or husband you would press =, to find 
the eldest brother or sister you would 
press <— (left arrow), and so on. 
Furthermore an important consid- 
eration has been to minimise the risk 


ILLUSTRATION BY DAVID HINE 


? 


of ending up with a totally inconsis- 
tent database which if you looked at 
one record would tell you that so-and- 
so was someone’s father but if you 
looked at another it would tell you he 
was his brother. This has meant that 
the structure of the data files has had 
to be well thought out, with a mini- 
mum of redundant or duplicated 
data, and has required a way of 
entering the data so as to maintain 
the consistency throughout. 

The solution given below uses four 
data files to store the information: 
People_dbf, Families_dbf, Marriage_ 
dbf and Parents_dbf. The People file 
just stores information about indi- 
viduals — not relationships. Thus 
there are fields to contain a reference 
number, the name, the dates, the sex 
and general comments about the 
person. 

The Families file contains the rela- 
tionship information. Each record in 
this file represents one family — a 
couple and their children. Thus there 
are fields in this file to contain the 
reference numbers of the couple, 
their children and the dates of the 
marriage (if any). 

The remaining two files are strictly 
redundant in that they only contain 
data which could be found from the 


Families file. However, they are re- 


Listing 2. Save in file Relat1_prg from where it can be 
loaded and run by the procedures in listing 1. 


proc Bye 
rem *** Close all files that may be open. NB: A 
n error *** 
rem *** will be caused by this proc and must be 
trapped *** 
while 1: close 
endproc 
proc Check 
rem *** Checks if an error occurred opening file 
g kk 


rem *** Tf so closes files and retries. 
kK 
if errnum(): error Bye: cls 
print ink 2;"Error in opening files" 
Start: endif 
endproc 
proc Chop;X$,n,Delim$ 
rem *** Sets C$ to given string with first n ‘wo 
rds’ removed *** 
local Words,Dlim 
let Words=n: let CS$=X$ 
let Dlim=instr(X$,Delims) 
while Words 
if not Dlim or Dlim>=len(C$): let C$="": retur 
n : endif 
let C$=C$(Dlim+l to ) 
let Dlim=instr(C$,Delim$) 
let Words=Words-1 
endwhile 
endproc 
proc Del Fam; Fam 
rem *** Deletes the records in all files associ 
ated with *** 
rem *** family "Fam" 
records) *** 
use "F": locate Fam 
if FamO>F.Family: return : endif 
DelMar;F.Father, Fam 
DelMar;F.Mother, Fam 
let C$=F.Children$ 
while val(C$) 
DelPar;val(C$),Fam 
Chop;C$,1,"," 
endwhile 
delete "F" 
print "*** Family DELETED ***" 
endproc 
proc DelMar;Who,Fam 
rem *** Deletes marriage of "Who" if in family " 
Fam" &%* 
use "M": locate Who 
while M.RefNo=Who 
if M.Family=Fam 
delete "mM" 
else : next : endif 
endwhile 
endproc 
proc DelPar;Who,Fam 


rem *** Deletes parents of "Who" if in family "F 
am #e* 


: endwhile 


(Does not delete "people" 


use "Pa": locate Who 


Listing 1. Save this in a file called Relation_prg. It is 
executed by typing: run “Relation”. 

proc pl0;s$ 

rem *** Prints line leaving coloured border *** 


print tab 10; paper 0;" 
gs" 
endproc 
proc Start 
rem *** This is the first procedure to be called 
Displays *** 
rem *** details of program and loads procedures 
for phase 1 *** 
paper 2: ink 7: mode 0,4 
els : print at 5,14; paper 0;" ""RELATIONS"™ " 
print at 10,3; paper 0;" A suite of Archive pr 
ocedures " 
print tab 3; paper 0;" for storing and displayi 
ng your " 
print tab 3; paper 0;" 
" 


";S$trept(" ",50-len(S 


family tree. 


print at 18,12; paper 0;"cAndy Carmichael" 

print at 23,1;"Press any key to continue..." 

let a$=getkey(): mode 0,8: cls 7 print at: 5,1 

pl0;"":pl0; "INSTRUCTIONS... 

pl0; "-------~-------- 

pl0;"":pl0;"Loading procedures for phase I. 

pl0;"":pl0;"During this phase the files are crea 
ted (for a new" 

pl0;"database) or opened for existing databases. 
You" 

pl0;"must enter the file names." 

pl0;"":pl0;"For a new database details may be en 
tered of the" 
pl0;"people and their relationships.":p1l0;"" 
print at 22,1;"Loading..."; at 21,1 
run "relatl" 
endproc 


quired since without them a complete 
search of the Families file would be 
needed every time the program 
wanted to find who was the parent or 
spouse of a particular person. By 
having these extra two files we can 
use the much faster command ‘locate’ 
which will go straight to the appropri- 


while Pa.RefNo=Who 
if Pa.Family=Fam 
delete "Pa" 
else : next : endif 
endwhile 
endproc 
proc FileNames 
rem *** Gets names of data files (Defaults given 
) we 


input " Name of ‘people’ file (Peo_dbf): " 
;Peos$ 

input " Name of ‘families’ file (Fam_dbf): " 
;Fam$ 

input " Name of ‘parents’ file (Par_dbf): " 
;Pars 

input " Name of ‘marriage’ file (Mar_dbf): " 
;Mars 


if Peo$="": let Peo$="Peo": endif 
if Fam$=""; let Fam$="Fam": endif 


if Par$="": let Par$="Par": endif 
if Mar$="": let Mar$="Mar": endif 
endproc 


proc GetPerson 
rem *** Finds record of person (or inserts one) 
kK 
let yes=0 
while not yes 
getrec;"P" 
if not yes 
YesNo;"Do you want to enter new person? “ 
if yes:InPerson: endif 
endif 
endwhile 
endproc 
proc GetRec;lfn$ 
rem *** Finds record, displays it, searches for 
next if not OK *** 


local n$,I 
if lfng="": let lfn$="Main": endif 
use lfn$: let yes=0 
input "who? ";n$ 
if ng=""; return : endif 
find n$ 
while not yes 
if not found(): print n$;"'not found": return 
: endif 
let I=0 
while I<numfld(lfns$) 
print fieldv(I);":" 
let I=I+1 
endwhile 
print :YesNo;"0K (y/n)? " 
if not yes: continue : endif 
endwhile 
endproc 
proc InFamily;Df£$,M,D 
rem *** For inputting a family. Default surname 
£8) DES. *** 
rem *** RefNo of Mother (M) or Father (D) may be 
given. *** 
els 
while 1 


ate record on the microdrive car- 
tridge or in memory, thereby saving a 
great deal of time. Thus the Marriage 
file will contain, for each reference 
number, a family in which the person 
referred to is either father or mother. 
The Parents file will contain for each 
reference number, the family in 
which the person referred to is one of 
the children. The procedures which 
create the four data files and order 
them appropriately are NewPeople, 
NewFamilies, NewMarriage and 
NewParents réspectively (listing 2). 
In order that the Marriage and 
Parents files do not end up with data 
that conflicts with that found in the 
Families file, the procedure UpSubs 
(listing 2), which is called (when 
inputting a family) updates the two 
files from the given record in the 
Families file. In this way, although 
we have redundant data in the data- 
base, we may be reasonably confident 
that it won’t conflict, at least across 


files. 
MULTIPLE FILES 


There are a number of reasons for 
using multiple files rather than 
trying to fit all the data into one file. | 
As we have'already seen with the two 
extra files Marriage and Parents, the 
files are needed to give faster access 


use "F": last 

let F.Family=F.Familyt+l 

print "Father is "; 

rem (FOR PHASE IL) if D:prin;D,0,0: else 
let Sx=l: let Def$=Df$:GetPerson:REM endif 
tet r.fatner=y.kerNo: Let ChNS=P.Surnames 
print "Mother is "; 

rem (FOR PHASE II) if M:prin;M,0,0: else 
let Sx=0: let Def$="":GetPerson:REM endif 


let F.Mother=P.RefNo 
input "Date married? ";F.DateMarried$ 
input "If divorced, give date... ";F.Dissolved 


$ 
let F.Childrens="" 
YesNo;"Any children? " 
while yes 
let Def$=ChN$: let Sx=1:GetPerson 
let F.Children$=F.Children$tstr(P.RefNo,2,0) 
+" 9 " a 


YesNo;"Any more children? " 
endwhile 
use "F"; append :UpSubs 
rem (FOR PHASE I1)let Subject=F.Father:Details 
3 Subject 
print :YesNo;"Satisfactory? (y/n) " 
if yes: return : else 
YesNo;"Delete family just entered?" 
if not yes: return : else 
DelFam;F.Family: endif : endif 
endwhile 
endproc 
proc InPerson 
rem *** For inputting details of a person (setti 
ng defaults) *** 
cls : use "P": last 


let P.RefNo=P.RefNotl 

let P.Surname$=Def$ 

let P.FirstNames$=""" 

let P.Male=Sx 

let P.DateOfBirth$="" 
P 


let 

let P.Comments$= 

append : sprint : alter : cls 

endproc 
proc Instructions 

rem *** Display instructions for next phase whil 
e loading *** 

cls : print ink 2;"Instructions for phase II." 

print : print "During this phase family trees ma 
y be displayed and changes made to" 

print "the database (if files were opened for mo 
difications)." 

print : print "The following key presses have th 
e effect shown:" 

print : print tab 5;"#"; ink 4; tab 25;"Subject 
moves to father (if known)" 

print tab 5;"<SHIFT> a"; ink 4; tab 25;"Subject 
moves to mother (if known)" 

print tab 5;"€"; ink 4; tab 25;"Subject moves to 
eldest sibling (if any)" 

print tab 5;"$"; ink 4; tab 25;"Subject moves to 

continued overleaf 


-DateOfDeath$s="" 


mnt 
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to the data. Another important 
reason is that a file such as the People 
file may be used in a number of 
applications not at all related to this 
particular case. In order to avoid 
duplicating the data for each applica- 
tion — with the accompanying risk of 
inconsistency through not updating 
all the data files when the informa- 
tion changes — the information 
should be separated so that different 
application programs can access com- 
mon files. This is linked to the most 
important reason why multiple data 
files arise, which is the natural struc- 
ture of the data. In the stock control 
case for example, given in the Users’ 
Manual (Archive p.34), the three 
data files, Stock, Suppliers and 
Orders, are three naturally distinct 
areas. Only by distorting the struc- 
ture of the data, and adding many 
more fields to each record, could these 
be fitted into a single data file. This is 
also the case with the present exam- 
ple. If the structure isn’t right, family 
relationships can become very com- 
plicated to deal with. 

The procedures in listings 1 and 2 
should be saved into two files (called 
Relation_prg and Relatl_prg). This 

| speeds up loading and saves memory. 
Don’t believe what it used to say in 
the Archive manual (page 54, para- 
graph six) — the size of your database 


next sibling (if any)" 
print tab 5;"="; ink 4; tab 25;"Subject moves to 
spouse (if any)" 
print tab 5;"<SHIFT> = (ie. +)"; ink 4; tab 25;" 
Subject moves to NEXT spouse. (Only valid after " 
amy 
print tab 5;"'; ink 4; tab 25;"Subject moves to 
first child (if any)" 
print tab 5;"?"; ink 4; tab 25;"Search for new s 
ubject” 
print : print tab 5;"<SPACE> or <ENTER>"; ink 4; 
tab 25;"Display family tree of subject" 
print tab 5;"E or <ALT>+any key"; ink 4; tab 25} 
“Edit the subject’s family” — 
print tab 5;"I"; ink 4; tab 25;"Insert a new fam 


print : print tab 5;"<ESC>"; ink 4; tab 25;"Exit 
from program." 
print at 22,1; ink 2;"Loading..."; at 21,1 
endproc 

proc Looks 
rem *** Opens the files for read only *** 


print " Opening files (read only)..." 
look Fam$ logical "F" 
look Mar$ logical "M" 
look Par$ logical "Pa" 
look Peo$ logical "P" 
endproc 
proc MakeNew 
rem *** Start a new database *** 
els : print " Starting a new database... 
error NewFamilies;Fam$:Check 
error NewMarriage;Mar$:Check 
error NewParents;Par$:Check 
error NewPeople;Peo$:Check 


YesNo;"" Do you want to start inputting data? 
" 
while yes 
error InFamily;"",0,0 


if errnum(): cls : print "***WARNING*** Error 
"s;errnum();" occurred during input of family" 
YesNo;"Delete last family?": if yes:DelFam;F 
-Family: endif : endif 
YesNo;"Another family?" 
endwhile 
Mem 
endproc 
proc Mem 
rem *** Prints remaining memory and No. of recor 
ds used *** 


cls : print "Total memory remaining = We 
print memory();" Bytes" 
print "RECORDS USED:"; 


use "P": print tab 15;"People: "Scount()-1 
use "M": print tab 15;"Marriages: ";count()-1 
use "Pa": print tab 15;"Parents: "$count ()-1 
use "F": print tab I5;"Families: ";count()-1 


endproc 
proc NewFamilies;Name$ 
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is limited by the amount of memory 
in the computer, and too many proce- 
dures cut down the available memory 
dramatically. Having entered and 
saved the procedures the method for 
using the package is simply to type: 
run “relation” 

This runs the first procedure which 
displays the instructions while load- 
ing the next file. The program then 
gives you the option of starting an 
entirely new database, modifying an 
existing set of files, or looking at a set 
of existing files. 

Should you opt to start a new 
database a series of prompts will lead 
you through the various steps of data 
input, family by family. The amount 
of memory remaining is displayed 
regularly as when this falls below a 
certain amount Archive may crash 
without warning. Reference num- 
bers will be automatically in- 
cremented. Entries should be made 
in the remaining fields, namely Sur- 
names, First Names, Male(1 or 0), 
Date Of Birth, Date of Death and 
Comment. 


WISE WorDS 


The root of most evils associated with 
Archive is a chronic lack of memory. 
Record indices, procedures and user- 
defined screen layouts all competed 
for a limited 12K on version 1.01 


rem *** New ‘Families’ file *** 
create Name$ logical "F" 
Family 
Father 
Mother 
DateMarried$ 
Dissolved$ 
Childrens 
endcreate 
let F.Family=0 
append 
order Family;a 


endproc 
proc NewMarriage;Name$ 
rem *** New ‘Marriage’ file *** 


create Name$ logical "M" 
RefNo 
Family 
endcreate 

append 

order RefNo;a 

endproc 

proc NewParents;Name$ 
rem *** New ‘Parents’ 


file *** 
create Name$ logical "Pa" 
RefNo 
Family 
endcreate 
let RefNo=0 
append 
order RefNo;a 
endproc 
proc NewPeople;Name$ 
rem *** New ‘People’ file *** 
create Name§$ logical "P" 
RefNo 
Surnames 
FirstNames$ 
Male 
DateOfBirths 
DateOfDeaths 
Comments$ 
endcreate 
let RefNo=0 
let P.Surname$="#NULL#" 
append 
order RefNo;a 
endproc 
proc Opens 
rem *** Opens files with write access *** 
print " Opening files..." 
open Fam$ logical "F" 
open Mar$ logical "M" 
open Par$ logical "Pa" 
open Peo$ logical "P" 
endproc 


ADB. The. additional 8K available 
under version 2.0 was therefore most 
welcome. 

This is amply illustrated on our 
relational database where the Arc- 
hive program routines occupy almost 
12K by themselves leaving 8K for the 
data file index. The latter occupies 
space along the following lines: 

No ordering -— 6 bytes/record 

1 ordered field — 14 bytes/record 

2 ordered fields — 22 bytes/record 

3 ordered fields — 30 bytes/record 

4 ordered fields — 38 bytes/record 
As our four files are ordered on only 
one field there should be room for 600 
records or about 150-200 people in 
our family tree on an unexpanded 
QL. However, in practice, Archive 
may start falling over before this 
upper limit is reached and data could 
be lost. Our advice, therefore, is to 
back-up your data and program files 
regularly. Never OPEN a _ddf file 
unless you have at least one back-up 
copy on a separate cartridge. As 
regards procedures, keep two copies 
of the _prg files and after each EDIT 
save the procedures alternately to 
one of the files. That way if a change 
doesn’t work properly you can go 
back to the previous version. 


Next Month: We conclude this topic with 
procedures for displaying the trees. 


proc Start 

rem *** This procedure is called first * 
*K 

rem *** Opens the files - (new, write or read) * 
#k 

print "Press. any key to continue..." 

let a$=getkey(): paper 0: cls : print at 5,1 


YesNo;" Do you want to start a new database? 
" 


FileNames 
if yes:MakeNew: error Bye: endif 


YesNo;" Do you want to modify the database? 
" 
if yes 
YesNo;" Have you backed up the data files? 
" 
if yes 
print paper 6; ink 0;"WRITE privilege to fil 
es - BEWARE! " 
error Opens:Check 
else 
print: ™* Back up files (";Fam$;",";Mar$;" 


»";Par$;",";Peo$;") before continuing" 
print " Press any key to continue..." 
let a$=getkey(): mode 1,8: stop 
endif 
else 
error Looks:Check 
endif 
let Subject=1 
Instructions 
run "relat2":rem *** The listing for these proce 
dures will be given in next month’s article *** 


endproc 
proc UpSubs 
rem *** Update "Marriage" and "Parents" files ** 
* 
use "F" 
let M.Family=F. Family 
let M.RefNo=F. Father 
append '"M" 
let M.RefNo=F.Mother 
append "M" 
let Pa. Family=F. Family 
let C$=F.Childrens 
while val(C$) 
let Pa.RefNo=val(C$) 
append "Pa" 
Chop;C$,1,"," 
endwhile 
endproc 
proc YesNo;P$ 
rem *** Gets Y or N from keyboard and sets varia 
ble "yes" 
while 1 
print P$;: let Q$=lower(getkey()) 
let yes=(Q$="y") 


if instr("ny",Q$): print " "4+Q$: return : endi 
i 
print : endwhile 
endproc 
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if you have a Sinclair Computer this is 
the show you can’t afford to miss! 


The great day is June 22nd. 

One day you won't forget if you own or use a 
Sinclair Computer. 

The Microfair is back in town. 

See everything that’s new and original for The 
Spectrum, Spectrum+ and the fantastic QL. 

If it’s just launched you'll find it at the 
MICROFAIR. If you want advice you can talk 
face to face with the manufacturers. If you can’t 
find it in the shops you'll probably find it at the 
MICROFAIR. 

Why not send today for cut-price advanced 
tickets. 
= 


HOW TO 
GET TOTHE 
SHOW 


Underground: Nearest 
stations are Victoria, and 
St James’s Park. 
British Rail: 

Victoria Station. 


Bus Routes: 11, 24, 29, 
%,| 70, 76 and Red Arrow 507. 
Road: Signposted 


(RAC AA) Horticultural 
Halls. 


POST TODAY 


Send to Mike Johnston (Organiser), Dept QL , ZX Microfairs, 
71 Park Lane, London N17 OHG. 


Please send me........ Advance Tickets 
(Adult) @ £1.25 16" 
Please send me........ Advance Tickets 


(Child under 14) @ 80p. 
(Prices at the door are £1.50 and £1.00 ZX FLL 


Name: 
Address: 


Please include a stamped self-addressed envelope and make cheques/POs payable to ZX Microfair. 
EXHIBITORS: CALL MIKE JOHNSTON ON 01-801 9172 FOR STAND AVAILABILITY. 
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AND catalogue) BE 
$( LET channel = 2 
LET device = VEC 3 
$( get. string device 15,"Cataboate which device") 
IF devices0 = Q THEN RETURN 
channel $= OPEN(device open-dirs 


("aNCannat find 45 


no. buffer) 
IF channel ¢ 9 THEN $4 WRITEF - press @ key" device) | 
ROCHO ; 
$) 


$) REPEATUNTIL channel >= 9 
get. dir (channel) 
$) 


AND get. dir (chan) BE 
$( LET header = VEC 16 


GELECTINPUT (chan) 
GELECTOUTPUT (SYSOUT) 


WHILE READBYTES (header h) NE 0 D0 


dir-header. lengt 


$( 
If header !0 THEN 


§( 
NEWLINE () 
FOR i = 1 10 header Zis DO 


wRcl (header (15+i)) 
WRITES (*scch 


WROH('=") 3 WRITEN (header !0 = dir sheader Length) 


$) 


$) 

NEWLINE() 

ENDREAD () 

GELECTOUTPUT (conmand) $1 LET g > 
SELECT IMp 
ais roy 

rE 


$) 
AND get. filet) BE 
§( LET stream echo = 7, FALSE 


LET filenase = VEC 10 


$( get string filename ds Ree into") 
IF ¢ilenanek0 = Q THEN RETURN 
strear $= FINDOUTPUT (Filename) 


If stream > 0 THEN BREAK 
WRITE ("aNCannot open 18 - press a key"y 


ROCH() 
$) REPEAT 


filenane) 


WRITES ("#NEchO file to screen? “) - 
if capsint) = ry’ THEN echo #° TRUE 


WRITER ("ENPress ESC to stop reading i 


nto 4g" ,filenane) 


(Let az? 

IF PENDING (serial ,0) THEN 4“ gs 

$( GELECTINPUT (serial? = ctrls 
a = RDCHY) 
IF a= ENDSTREANCH THEN BREAK 
GELECTOUTPUT (strean) 
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1Filenane) 


ean) 


T 
HEN dopause,) 


$( LET ans = ? 


WRITES ("#N 


$) 


TEST ‘C’ 


AND jobcontrol() BE 
jobnua := TRUE 


ans = capsin() REPEATUNTIL ans = ‘A’ | 
“ans = 'R' tans = ‘P’ 


AND job.exec (option) BE 
$( LET ayjob = 0 


Avetivate Create K)ill S)uspend R) 
ans = ‘C’ | ans = ‘K’ 


Jobs: 


ans = ‘S 


job. exec (ans) 


NE ‘1’ THEN $( LET nuabervec = VEC 2 
$( get. string (number vec, 


NE option 
ayjob t= get .hex (nuabervec) 


IF TS30B(nyjob) THEN BREAK 
t exist - press @ key" ,ayjob) 


WRITEF("#NJob 4X8 does no 


RDCH() 
$) REPEAT 
SWITCHON option INTO 
$( 
CASE ‘A’: doactiviny job) 
ENDCASE 
CASE ‘K's KILLJOB(ay job) 
ENDCASE 
CASE ‘P's doprior (ayjob) 
ENDCASE 
CASE ‘R's RELEASE (my job) 
ENDCASE 
CASE ‘S's dosusp (ay job) 
ENDCASE 
$) 
$) 
QR TEST option = ‘C’ THEN 
$( LET stream,addr = ?,? 
LET filename = VEC 10 
LET header = VEC 3 
${ LET datalen = 0 
ane ,42,"Filenane") 


$( get.string(filen 
IF filenaneZ0 = 0 THEN RETURN 


stream == OPEN(filename,1,0) 


IF stream > 0 THEN BREAK 
WRITEF(*#NCannot open ZS - press a key 
RDCH() 
$) REPEAT 
16) 


READFILEHEADER (stream,header , 
FOR i = 6 10 9 DO datalen += 
addr := CREATEJOB (header !0,datalen) 
If addr NE 0 THEN BREAK 

WRITES ("#NCannot create jo! 


ROCH() 
$) REPEAT 
READFILE (stream,addr header '0) 
CLOSE (streaa) 
ayjob += RESULT2 
WRITER ("Job 2X8 is now create 
SCREEN(screen. cursor) 


RDCH() 
SCREEN(screen.nocur sor) 


b - press a key”) 


elease P)riority Information") 


tans = ‘I’ 


41,"Which job?") 


" filenane) 


(datalen << 8) + header ‘i 


id - press @ key" yay job) 


$) 


3 get. infor) 


AND 
9et. hex (hexver) x 
ET count = 9 = VALOF 


is 


x a hexveczo pg 
ae hexvecy; 


*= (count « 
4) 4 
RES ch 
#) ULTIS count 


AND dopr; 
Prior (this; 
Job) 
ET Prior A BE 


ET nuny 
ec = VE! 
get. str; C2 
String (nuavec, 11 "Br 
1 Pri 


Prior := 
PRI “dBc (p 
Ps ORITY (this iob priors” 


Ority") 


AND (activ this op) BE 
Prior, timeout 29 
ae = VEC 2 ; 
ba ring (nuavec, 14 "P, 
*= get, ietiugre) 


Ority") 


1PFiOF, tinegut 


AND 
4OSusp (this job) BE 
timeout = 9 
T humvee = vec 2 


get. strj 
tineout ra (nunvec, 11,* 


g 
4) SUSPEND (thi 


Timeout 
get. ®C (nuavec) sls 


$J0b,tireout) 


AND get. intoi) BE 


Oe awn 
Job = 
$ LET base = : 


N " . 
é ame", (jintg? ‘ay 
FoR ; - #44 & baser7 = geht 


AND Poptions,) BE 


${ LET option = ? 
SCREEN (screen. nocursor) 


SELECTINPUT (command) 
SELECTOUTPUT (command) 


WRITES(*#N Cz catalogue drives J: 
option := capsin() REPEATUNTIL option = ‘C’ | option = 


SWITCHON option INTO 


$( 
CASE ‘C's catalogue() 


ENDCASE 
CASE ‘J's jobcontro} () 
ENDCASE 
CASE ‘R's TEST online THEN get. filel) 
OR $4 WRITES("#NYou are not online - 
RDCH() 
$) 
ENDCASE 
CASE ‘S‘: put. file() 


ENDCASE 
SELECTOUTPUT (FINDOUTPUT("SCR_150x12a12x244")) 


SCREEN(screen.border ,white, 1) 
SCREEN(screen. paper 18) 
SCREEN(screen.clear) 
ENDWRITE() 

set. status() 

SCREEN (screen. border ,red, 1) 
SCREEN(screen. ink white) 


press a key") 


CASE ‘W': 


SELECTOUTPUT (command) 
ENDCASE 

$) 

set.cona() 

SELECTINPUT (SYSIN) 


SCREEN (screen. cursor) 


# A routine to return job information to a BCPL program 


# Returns BCPL base address, next job in tre 

# priority / suspension status in JINFO2 

# A routine to put a channel ID onto a job's stack 
+ PUTPIPE(base,stream) Gl 
4 The first parameter is the 
+ BCPL stream identifier 


byte base addr 


n job exists 


* jobexists := ISJOB( jobID) returns 
# Global 115 


RESULT2 EGU 10 
1SJ0B EQU {15 


JOBINFO EGU 126 
JINFOL = EQU 127 
JINFOZ © -EQU 128 
PUTPIPE EGU 129 


2 


EQu 


HT_JINF 


job control R: read file S: send file Ws re-draw") 
"J' | option = ‘R' S 


option = ‘S' | option = ‘W' | option = esc 


$) 
Se oe eS SSS:C”*~* 


* baseaddress t= JOBINFO(jobID) Global 126 
e in JINFOL, owner in RESULT2 and 


obal 129 
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# A routine to return TRUE if a give 
TRUE if job exists and FALSE if not. 
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_,Memory to your OL 


- %& MEGABYTE MORE. This new memory Expansion Board from Simplex 
Data Ltd. gives your existing OL a further 256k worth of extra memory. 


~ EVEN MORE EXPANSION. In addition to the ever popular % Megabyte 
board, you now have the unique opportunity to purchase a Megabyte 
Memory Expansion board-512k! Even more memory for your OL 


| | DESIGNED FOR THE SINCLAIR QL. Most users of the OL will realise the 
limitations of a 128k system. Simplex Data have not only expanded the 
memory potential, but have given you, the user, a wider field of 
operation. 


_ EASY TO USE. Simply remove the port cover located at the end of the QL 
keyboard and slot in your NEW Simplex Memory Expansion board-It’s as 
simple as that! 


_ COMPACT SIZE. There's nothing like it on the market. Measuring 
approximately 97mm x 77mm, this little board is a major advance in Micro 
_ technology. 


_ HOW IS IT DONE? Utilising the latest 
256k x 1 bit Dynamic RAM’S. 


Gniy 
= 1 PS 


Inc. VAT, postage and packing. 
l_year warranty included. Please 
allow 28 days for delivery. 
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432 Greenford Road, Greenford, Middlesex UB6 8SG. Tel: 01-575 7531 


To: SIMPLEX DATA LIMITED, FREE POST, 432 GREENFORD RD, 
GREENFORD, MIDDLESEX UB6 8SG. 


Please send me: (Qty) Memory Expansion Boards at 
£198.00 (inc. VAT, Post and Packing). 


| enclose Cheque/Postal Order for £ 


Simplex i 
Data pacts 
Limited 


Telephone No.:: 


Payment by ACCESS or BARCLAYCARD phone: 01-575 7531 


Time 09 18 Date May 16 
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P.O. Box 90 
Barnet 
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Tel 01-449 7417 


Designed to perform 


The Sinclair Vision QL colour monitor represents amaz 
value for money. Just look at these features: 


@ Developed in conjunction with Sinclair Research 

@ 12” high resolution RGB colour monitor 

@ Designed for QL’s 85 column text and colour graphics 
display 

®@ Ideal for professional business applications 

@ Full 12 months warranty 

® Complete with integral lead and connector for the OL 

Mail order and retail shop, trade and export enquiries 


welcomed. Government and 
educational establishments f Our. 
price — just 


official orders accepted. 


Carriage: £7.00 via Securicor. 
incl. VAT 


(save £50 on 
recommended 
prices) 


Access orders: simply 
phone Watford (0923) 
50234 (24 hours) 


Prices subject to change without notice and 
availability. 


AGENDA Tre program that doeseverything 
your pocket or desk diary will not do. Agendaisa 
calendar-based program to remind you of 
appointments, phone messages, birthdays, 
holidays, bills and many more. 

* Make a print-out of any display 

x Alarm facility to warn you of an appointment 

* Real time clock 

* Facility to export to Quill 

* Zoom in to any day facility 

* and more 


Introductory offer £19.95 (fully inclusive price) delivered in the U.K. 


~™ Q-SOFT 
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Postcode: 
Signature: 


Tel. No.: 


Fully inctusive price delivered in the U.K Europe add £1.00. Allow 14 days for delivery 
Dealer enquiries welcome. 
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Expert Systems are quickly 
proving themselves invaluable — 


in many fields — Mike James 


looks at the reasons behind 
the reasoning. 
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easoning something out is 
R: particularly human 

activity. Given a faulty 
computer, motor car or any 
other of today’s modern 
applicances then an 
appropriate expert can 
(usually!) be found to correct 
the fault. Such fault finding is 
typical of the way that humans 
reason about the world and 
now computers are starting to 
get in on the act. So called 
‘expert systems’ are being used 
on a regular basis to aid such 
diverse activities as medial 
diagnosis, electronic fault 
finding, mineral exploration 
etc. Expert systems are 
probably AI’s most successful 
product to date and for this 
reason alone they are worth 
examining. 


Raison D’Etre 


Computers reason using exact 
logic and this is why they are so 
good at obeying the programs 
that we write for them. 
However, humans rarely think 
logically in this sense, unless 
they are forced to by the nature 
of the problem. This is not to 
say that humans think 
illogically but that they havea 
different approach. A human 
will not analyse the situation 
in minute detail but try to draw 
on past experience (ie, match 
some detail of the problem with 
something seen in the past). In 
other words, use is made ofa 
wide ranging knowledge of the 
way that the world works, 
knowledge that is generally 
not included in programs that 
reason logically. 

If this is the case, then to 
construct programs that 
reason about things in the way 
that humans do we should first 
look at the representation of 
knowledge inside a computer. 
Computers are thought to be 
good at collecting and storing 
vast amounts of information 
and indeed this is true, but 
they store it in a very simple 
way. Acomputer’s collection of 
facts is more like the way that 
an encyclopaedia ‘remembers’ 
things rather than the way a 
human remembers (memory is 
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| the subject of next month’s 


article). For example, a 
collection of facts is useless 
unless you know what the 
‘consequences’ of a fact are. If 
you are trying to decide what 
the weather will be, both you 
and the computer might know 
that the sky is black and full of 
clouds but you alone can 
deduce that this means it is 
likely to rain. In other words, 
you know the possible 
consequences ofa black, cloud- 
filled sky — the computer does 
not! 


Knowing The Question 
It’s not difficult to think of 
ways of storing information 
along with the consequences as 
acollection ofrules. For 
example, the weather 
‘knowledge’ could be sorted 
inside a computer as: ‘IF black 
cloudy sky THEN high 
possibility of rain’. 

In general a piece of 
knowledge can be represented 
by alist of conditions and a list 
of consequences. For example: 
‘IF black clouds, high 
humidity, summer THEN 
thunder storm’ might bea 
statement of what we know 
about thunder storms. The 
commas between each 
condition should be read as 
‘AND’ because each of the 
conditions has to apply before 
we are willing to reach the 
conclusion with a degree of 
confidence. Notice that 
although we are using IF... 
THEN, which isso familiar 
from programming, this use is 
different. In this caseIF... 
THEN isn’t an instruction to do 
something if something else is 
true, itis a statement of the 
relationship between different 
facts. 

If you wanted to construct a 
program that used such rules 
to solve problems then all you 
would dois collect asmany 
rules as possible, in other 
words build a ‘rule database’, 
and then, to find out the 
meaning or consequence of a 
set of conditions, simply search 
the database for rules with the 
same conditions. There may be 
more than one rule for any 
particular set of conditions. For 
example, if you knew there was 
ablack sky you might search 
and find both ofthe IF... 
THEN weather rules given 
above. The predicted 
consequences would be rain by 
the first rule and possibly a 
thunder storm from the 
second. To find out which was 
more likely you would have to 
supply more information. 


Programs of this sort are 
usually referred to as 
‘knowledge-based expert 
systems’ and they are 
receiving a great deal of 
attention from the computer 
community and the general 
public at the moment as the 
best thing that AI has ever 
produced (without being 
necessarily complicated). 

Rather than continue with 
theory and explanation it is 
easier and more instructive to 
proceed straight toa simple 
SuperBasic expert system. 

All this talk of knowledge, 
rules and expert systems may 
seem convincing, but does it 
work? To demonstrate how 
powerful the idea is, the 
program in Listing 1 will learn 
to become an expert on types of 
animals. The reason why types 
of animal has been used is that 
this particular program has a 
long history in one form or 
another and has always been 
presented with an animal 
database. However, since the 
program learns the database 
rather than having it already 
built-in you could use it in 
other areas, such as fault 
diagnosis, just by changing the 
first question asked. The 
reason this is a very simple 
expert system is that it uses 
rules of the sort: ‘IF list of 
animal characteristics THEN 
itigsa...(name of animal)’ 

For example, you might 
have the rule: ‘IF it has 
feathers, is a predator THEN it 
is an eagle’ To make finding 
the correct rule easy and make 
the addition and modification 
of existing rules possible, the 
rules are represented by a tree. 
The use of a tree is not essential 
to the method but it has many 
practical advantages and 
seems to fit quite naturally into 
the program. 

To see how a tree can be used 
to represent a number ofrules 
look at Fig 1. Starting from the 
first question ‘Does it have 
feathers’ youcan work your 


mou. ate 
¥ N 
Bird of Does it 
prey? have wool? 
oh N’ Y N 
eet Is it SHEEP ? 
brown? 
¥ N 
SPARROW z 


way down the tree answering 
the questions until you come to 
an animal’s name. Each time 
you answer a question you 
take the branch of the treethat 
corresponds to the answer, 
thatis, the lefthand branch for 
‘yes’ and righthand branch for 
‘no’ and ask the next question 
you meet. For example, ifthe 
answer to ‘Does it have 
feathers’ is ‘no’ then the next 
question is ‘does it have wool’. If 
the answer to this question is 
‘yes’ then the animal is a sheep. 


-| The rules that are contained in 


this tree are: 

IF feathers, predator THEN 
eagle 

IF feathers, not predator, 
brown THEN sparrow 

IF not feathers, wool THEN 
sheep 

You should be able to see 
that each of these rules is 
represented in the tree by the 
path taken to get to the 
animal’s name. The advantage 
of storing the rules in this form 
is that you can match the 
conditions against the rules 
one at a time rather than all 
together. It also provides a way 
of asking the user to supply 
information when it is 
necessary rather than all at 
once. 


Is ItA Bird... 


This is all very well but how do 
the rules and tree structure get 
there in the first place? The 
answer is that every time the 
Aardvark program reaches a 
“?’in the tree structure it 
doesn’t know what the animal 
is. Tocorrect this and gain 
some information it asks the 
user what the animal is called 
and for a question that it can 
ask next time to identify the 
animal. Once it has this _ 
information it inserts in into 
the tree structure for later use. 


_ For example, suppose after 


asking a number of questions 
the program finds itself at the 
“?’ following the ‘is it brown’ 
question. It then asks the user 
‘what is the animal’ to be told 
that itis a seagull and the 
question it should ask is Ts ita 
seabird?’. The result is that the 
new question replaces the 
question mark and the yes 
branch of the new part of the 
tree leads to ‘seagull’ and the 
no branch to yet another 
question mark. 

There is one other way that 
the Aardvark program can 
learn and that is by getting the 
answer wrong! Ifit follows a 
path down the tree and arrives 
at the answer ‘sparrow’ only to 
be informed by the user that 


the animal is in fact a ‘wren’, 
then it can avoid this mistake a 
second time by asking the user 
for another question in order to 
tell the difference between the 
two birds. For example, ifthe 
question is Ts it the smallest 
brown British bird’ then the 
‘wren’ would be on the yes 
branch and the ‘sparrow’ on 
the no branch. The question 
itself would of course replace 
the entry ‘sparrow’ in the 
original tree. In this way the 
tree ‘grows’ and modifies itself 
to reflect what you tell it about 
animals. You will have to try it 
for yourselves to see just how 
quickly it learns. 


10 REMark AARDVARK 

20 WINDOW 452,236,62,20 
38 MODE 8 

4@ init 

58 title 

6@ REPeat game 


| Integral Arrays 


The details of the program are 
not difficult to understand. The 
tree structure is represented 
by two arrays, L% and R%, 
corresponding to the left and 
right branch of the tree, 
following each question. If you 
reach an element of either the 
L% or the R% array that 
contains zero, then you have 
reached the end of the tree and 
don’t know what the animal is. 
Ifyou reach an element of 
either array that contains a 
negative number you have 
found a possible candidate for 
the animal. The names of the 


animals are stored in the array 
N§$ and the index of the animal 
that you have found is stored in 
the L% or R% arrayasa 
negative number. So if you find 
that L%(X%) is negative, the 
animal’s nameisin 
N$(—L%(X%)). If, however, 
the value stored in R% or L% is 
positive and not zero, then this 
is the index of the next 
question you should ask and 
the index of the next element of 
either R% or L% to look atasa 
result of the answer to the 
question. Finally, the 
questions are stored in the 
array Q$. 

The tree starts off with one 


3999 END DEFine answer 

4®0® DEFine PROCedure new_animal 

401 PRINT \\"I DO NOT KNOW THE ";SORT$ 

4®28 PRINT "THAT YOU ARE THINKING OF" 

4@3@ INPUT "WHAT IS IT CALLED ";B$ 

4942 PRINT \\"WHAT EXTRA QUESTION CAN I ASK" 
40958 PRINT "TO DISTINGUISH THIS NEW ";SORTS 


78 auestion 
1) PRINT \ 4055 INPUT C$ 
98 INPUT "DO YOU WANT ANOTHER GO Y/N "; AGAIN$ 4S68 NX=NX4+1 


100 IF AGAIN$="N" THEN EXIT game 


4970 N$(NX)=BE 


118 PRINT "THINK OF A NEW ANIMAL" 4B8O Q%=QK+1 


120 END REPeat game 
199 STOP 
1000 DEFine PROCedure init 


1020 Q$(1)="DOES IT HAVE FEATHERS" 


1038 Dx=1 

1048 R¥(1)=8 

1958 L%(1)=0 

1060 N%=o 

1972 Qu=1 

1499 END DEFine init 

1508 DEFine PROCedure title 


1510 PRINT \\\ 
1520 PRINT TO 18; "AARDVARK" 
1538 PRINT \\ 


155@ PRINT "I WILL GUESS IT -" 


156@ PRINT "ANSWER EACH QUESTION WITH" 4260 


1570 PRINT "YES OR NO" 

1599 END DEFine title 

2000 DEFine PROCedure question 
2010 X%=1 

2026 REPeat query 

2030: answer 

2048 LF AS="Y" THEN 

2058 SORT$="BIRD “ 

2060 CASE=R% (X%) 

28070 © SELect ON CASE 


2080 ON CASE=6 

2898 new_animal 

21080 an_am=1 

21108 ON CASE=-999999 TO -1E-3 
2128 A%=-CASE = 
2130 guess 

2148 an_am=1 

21590 ON CASE=REMAINDER 

21608 X%=CASE 

2178 an_am=0 

2180 END SELect 

2198 ELSE 


2200 SORT$="ANIMAL " 
22108 CASE=L% (XX) 
2220 SELect ON CASE 


2230 ON CASE=@ 

2240 new_animal 

2252 an_am=1 

2268 ON CASE=-99999 TO -1E-3 
2278 A%=—-CASE 

2280 guess 

2298 an_am=1 

2300 ON CASE=REMAINDER 

2318 X%=CASE 

2320 an_am=0 


2330 END SELect 

2349 END IF 

2350 IF an_am=1 THEN EXIT query 
2368 END REPeat query 

2999 END DEFine question 

300@ DEFine PROCedure answer 
3018 REPeat ans 

3928 PRINT \\Q$(XX%);" "5 

3830 INPUT A$ 


4098 Q$(Q%x)=c$ 
4100 IF A$="y" 


THEN 


4116 RX(X%)=DK%+1 
1018 DIM Q¢$(20,40),R%(20),L%(28),N$(28, 30) 4120 ELSE 
4138 L%(X%)=D%+1 


4148 END IF 


415@ PRINT “WHAT IS THE ANSWER TO" 


4168 PRINT C$ 


4178 PRINT "FOR A ";B$ 


4188 REPeat ans 


4198 INPUT D$ 


4200 D$=D$(1 TO 1) 


4210 IF D$="y" 


OR D$="N" THEN EXIT ans 


4220 PRINT “ANSWER YES OR NO PLEASE" 


4230 END REPeat ans 
154@ PRINT "YOU THINK OF AN ANIMAL AND" 4248 D¥=D%+1 


4250 IF D$="y" 


4270 L%(D%)=0 
4286 ELSE 


4290 L%¥(D%)=-NX 


4300 R%(DK)=0 
4318 END IF 


THEN 
R%(DX) =-NX% 


4999 END DEFine new_animal 
5888 DEFine PROCedure guess 
5010 PRINT \\"IS IT A "3; NS(A%)E" "G 


5@20@ REPeat ans 


5030 INPUT BS 


5048 B$=B$(1 TO 1) 


5050 IF Bg$="Y" 


OR B$="N" THEN EXIT ans 


5260 PRINT “PLEASE ANSWER YES OR NO" 
5670 END REPeat ans 


5080 IF B$=""Y" 


THEN 


5898 PRINT "I THOUGHT SO !!" 


518® ELSE 


511® PRINT "I GIVE UP !" 

5120 INPUT "WHAT IS IT ";B$ 

5138 PRINT “WHAT QUESTION WOULD TELL" 

5148 PRINT "THE DIFFERENCE BETWEEN A ";N$(A%) | 
5150 PRINT "AND YOUR ";B$ 


5168 INPUT c$ 
5178 Q%=QK%+1 


5188 Q$(QK%)=c$ 


5190 NX=N%+1 


5298 N$(N%)=BS 
5210 IF Ag$="yY" 
5228 R%(X% ) =QK 


5230 ELSE 


52498 L%(X%) =Q% 


5256 END IF 
5268 Dx%=DxK+1 


THEN 


5278 PRINT “WHAT IS THE ANSWER TO " 


5288 PRINT C$ 


5298 PRINT “FOR A ";BS$ 


5380 REPeat ans 
5316 INPUT D$ 


5328 D$=D$(1 TO 1) 
5330 IF D$="Y" OR D$="N" THEN EXIT ans 
5348 END REPeat ans 


5358 IF D$="yY" 


THEN 


5360 RX (D%) =-NX 
5378 L% (D%) =-AX 


3040 A$=A$(1 TO 1) 5380 ELSE 

3858 "yY" OR A$="N" THEN EXIT ans 5398 L%(D%) =-NX 
3860 "I DO NOT UNDERSTAND YOUR ANSWER" 5400 R%¥ (D%) =-AX 
3870 PRINT "PLEASE ANSWER YES OR NO TO my" 5418 END IF 

3680 PRINT "QUESTIONS - THANK you" 5420 END IF 


3898 PRINT 
3190 END REPeat ans 


5438 PRINT\\ 


5999 END DEFine guess 


question and no animal names 
stored. So Q$(1) contains the 
question and R%(1) and L%(1) 
both contain zero (you can 
think of zero as standing for 
the question mark in the tree 
diagram. Ifthe answer to the 
first question is ‘yes’ then 
R%(1) is examined and asit’s 
zero the program asks for an 
animal name and anew 
question. The new name is 
stored in N$(1) and the 
question in Q$(2). R%(1) is 


‘changed to 2 so that question 


Q$(2) will be asked following a 
‘yes’ answer to question 1 and 
R%(2) and L%(2) are changed 
so that one of them holds —1 to 
indicate that the animal’s 
name isin N$(1) while the 
other is set to zero to indicate 
that yet another question and 
name is needed. 


Extending Aardvark 


This crude program illustrates 
amethod for working out a 
conclusion from a set of 
conditions and it learns from 
mistakes. The way in which it 
‘grows the knowledge tree is 
haphazard but flexible—an 
animal can appear more than 
once in the tree to allow for 
different sets of conditions that 
define it. The biggest problem 
is that the order in which the 
questions are asked is 
governed purely by the order in 
which they are learned, and 
this is usually not the best 
order. Ifa human was playing 
Aardvark the first question 


chosen would be to provide the 


maximum information. For 
example, by asking ‘does it 
have feathers’ you can 
immediately narrow down the 
rest of the search into one of 
the two categories — birds or 
non-birds. 

As suggested earlier, by 
changing the first question in 
Aardvark to something else 
like Ts the fault electrical?’, the 
program could be turned intoa 
fault finder. However, naming 
the fault is only part of the 
solution. You should also store 
instructions about what to do 
along with the name. Some 
other suggestions for facilities 
that to Aardvark are: 


Add a routine to save and 
read in an existing tree 


Find a way of printing the 


‘entire tree for analysis 


Allow the user to ask fora 
description of any animal in 
the tree. 


Next Month: Is what we know a 
definite certainty? 
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Peter Williams, Headmaster of a 
comprehensive school in West 
Yorkshire, highlights the benefits of 
using the QL in his school. 


problem facing every school 

at the moment is how to 

respond to the challenges and 

opportunities the technolo- 

gical revolution offers within 
a budget which is continually being 
squeezed by current government’s 
restraint on the public sector. Para- 
doxically the government-sponsored 
‘Micros in schools’ programme en- 
sured that every school in the UK 
had the opportunity to buy a half- 
priced computer. The majority of 
schools plumped for the BBC micro, 
which at an offer price of under £200, 
represented excellent value for 
money. The problem which now faces 
schools, however, is how to fulfil their 
obligation to prepare up to 1300 
pupils for the 21st century with one 
computer! 

The truth is, of course, that most 
medium and large schools are finding 
ways of raising money to buy more 
machines. But with the Government 
offer now ended, and prices of 
machines with specifications equal 
to, or better than the ‘Beeb’ falling 
rapidly, the temptation is to look at 
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some of these newer machines in 
terms of value-for-money. 

There is a great deal of debate 
within education at present as to just 
how pupils should be prepared for an 
increasingly technological society. 
There is widespread disenchantment 
with the idea of separate ‘computer 
studies’ courses, and many schools 
which tried this approach are now 
looking for alternatives which stress 
the wide-ranging potential of in- 
formation technology right across the 
school curriculum, and thus better 
equip their students for the future. 

Most would agree that the school’s 
role is to awaken in all its pupils an 
interest in, and an understanding of 
how the computer shapes all our 
lives. This means that computers 
should be widely available, and used, 
in a wide range of situations in school. 
Teachers and pupils should turn to 
the computer, in appropriate cir- 
cumstances, just as easily as they use 
a pencil, piece of chalk, or text book. 

To achieve this at my school (Bel- 
mont in Baildon, West Yorkshire) we 
are committed to providing a micro in 
every classroom — a tall order, and 
one which would be out of the ques- 
tion using the BBC with its high 
initial cost and expensive peripher- 
als. The solution we have adopted has 
been to standardise on the Spectrum 
with microdrives, which provide a 


viable low-cost alternative, with the 
bonus of excellent commercial educa- 
tional software support. 

This is proving to be a good deci- 
sion, and with the addition of reason- 
ably priced graphics tablets, printers, 
a turtle and the excellent Sinclair 
Logo, the system provides a basis for 
the satisfaction of almost all our 
needs. 

arallel with these develop- 

ments, however, has been 

the establishment of a ‘Multi- 

Media Resource Centre’ in 

the school, based on a large 
and well-equipped library area. The 
Centre provides access for pupils and 
staff to a wide range of information 
contained in books, on slides and 
filmstrips, in computer software, on 
maps charts and pictures, in schools’ 
radio and TV broadcast recordings, 
on local and national viewdata sys- 
tems... the list is almost endless. In 
addition, the Centre provides facili- 
ties for the printing and copying of 
materials produced within school — 
pupils’ stories, poems and _ plays, 
graphs of survey findings, indexes of 
collections, letters and reports . 
again, the possible applications seem 
legion. 

We are fortunate to already pos- 
sess a business system, a DEC Rain- 
bow with 10Mb Winchester hard 
disk, based in the school office for 


administrative tasks. In the Re- 
source Centre, the need was for a 
smaller, less expensive system which 
was easy to use, and yet which would 
provide fairly sophisticated word pro- 
cessing, graph-production and data- 
base facilities for use by pupils and 
staff. 


hilst a number of soft- 
ware packages for the 
Spectrum are very re- 
spectable — indeed I reg- 
ularly use Tasword Two 
and Masterfile in the production of 
letters, documents, records and re- 
ports — the latest generation of busi- 
ness software leaves these far behind 
in terms of flexibility, power and ease 
of use. These are the qualities which 
we were looking for. 

Of all the programs currently 
available, the four business packages 
that come free with the QL appeared 
the most impressive. These seemed to 
provide just what was wanted — 
programs which would be easy to use 
with a minimum of training, and yet 
capable of development as our needs 
grew. I have made extensive use of 
the programs myself, both in school 
and in connection with my journalis- 
tic activities, and as a result the only 
real reservations I had were the 
slowness of the programs, and the 
infamous ‘bugs’, particularly in Quill. 

Word processing seemed a good 
place to begin. We have set up a 


——L—_— SS 
————————————————————O 
———————— 


system, including computer, monitor | 


and printer in the Resource Centre, 
to which pupils can bring handwrit- 
ten drafts of their stories, poems, etc, 
type them in, print off a draft copy 
and save it onto microdrive. They can 
then work on the draft with their 
teacher, correcting spellings and 
grammar, deciding on page layout, 
etc, before returning to the Centre to 
make amendments. 

This is fine, and the ‘WYSIWYG’ 
(what you see is what you get) opera- 
tion of Quill lends itself beautifully to 
on-screen formatting and the produc- 
tion of really creative and attractive 
page layouts. However, easy though 


Quill is to use, particularly with the. 


improvements of version 2, there was 
still a need to train all our 400 or so 
pupils (and staff) in the basics of its 
use — a tall order, until we hit on the 
idea of using a cassette-based audio- 
training programme as part of the 
pupils’ introduction to the facilities of 
the Centre. 

Using a simple cassette player and 
headphones, up to four pupils at a 
time can be talked through the use of 
Quill in about 40 minutes, covering 
program loading, creating and edit- 
ing documents, loading and saving 
files, designing page and screen lay- 


' outs, and using a printer. In a five- 


week period, most of our pupils have 
used the package and become conver- 
sant with the basic features of Quill. 


The next step planned is to use 
Easel, the business graphics pack- 
age. There are many occasions when 
pupils want to represent the results 
of their surveys graphically, and the 
flexibility and ease of use of Easel 
makes this an ideal choice for the 
purpose. Again, an audio-training 
cassette is being prepared, which 
could either be used to train pupils for 
their future use of the program, or 
enable them to bring a set of figures 
to the Centre and, without any pre- 
vious training, produce a graph in 
one of Easel’s standard formats. 

uture plans include the crea- 

tion of a simple-to-use data- 

base structure using Archive, 

and the addition of a modem to 

give access to local and nation- 
al viewdata systems. Another possi- 
bility is a link with the office Rainbow 
via a VT100 emulator to provide 
access to the hard disk store with the 
QL as a terminal in the planned 
resource catalogue and information 
retrieval system. 

A great deal of local interest has 
been shown in these developments, 
particularly in the audio-training 
packages, both for educational and | 
business applications. Commercial 
versions of programmes covering set- 
ting up the QL and using the four 
applications packages are currently 
in production, and will be on the 
market in the near future. 
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WITH ALL PRINTERS: QL USERS PRINTERS GUIDE - Getting the best from your printer is not easy 
4e0 “Ve Supply a free booklet with all printers which explains how to obtain all the features available on your 
printer. Without this you could waste many hours. Buy elsewhere and you'll pay far more and get far less. 


@ DOT MATRIX 

SHINWA CP A80 

EPSON RX80 

EPSON RX80 F/T+ SPECIAL OFFER 
EPSON FX80 F/T+ 

EPSON FX100 F/T+ 


ORDERED TODAY - 
DELIVERED TOMORROW 


@ COMPUTERS 
SINCLAIR QL ONLY 


EX VAT INC VAT 
£334-00 £384-10 


INC VAT 
£212-75 
£212-75 
£243-80 
£361-10 
£488-75 


@ DISC DRIVES 

We stock and use ALL drives and interfaces available including MEDIC, 
COMPUTAMATE and MICRO PERIPHERALS. 

For helpful impartial advice and best prices contact us. 


Prices include power supply and interface. 


MICRO PERIPHERALS 

31/," SINGLE DRIVE SYSTEM (.75 MBYTE) £241-00 
3%,” DUAL DRIVE SYSTEM (1.5 MBYTE). £365-00 
COMPUTAMATE 

57," SINGLE DRIVE SYSTEM (.75 MBYTE) £290-00 
5%,” DUAL DRIVE SYSTEM (1.5 MBYTE) £399-00 
MEDIC 


PRICES ON APPLICATION. 


@ DOT MATRIX PLUS NEAR LETTER QUALITY 

“CANON PW1080A SPECIAL OFFER £245-00 
KAGA KP810 £245-00 
KAGA KP910 17” CARRIAGE £340-00 
CANON 1156 47” CARRIAGE £340-00 


@ DAISY WHEEL 

QUENDATA 1120 

JUKI 6100 

EPSON DX100 SPECIAL OFFER 


& COLOUR PRINTERS 
EPSON JX-80 SPECIAL OFFER 
CANON PJ41080A 


@ PRINTER INTERFACES 
MIRACLE SYSTEMS 


£281-75 
£281-75 
£391-00 
£391-00 


£277-15 
£419-75 


£333-50 


225-00 £458-58 


£325-00 
£356-00 


£258-75 
£373-75 
£409-40 


m= MONITORS 
PHILIPS 7502 GREEN 
MICROVITEC CUB 1451/653 


m@ RAM EXPANSION BOARDS 
SIMPLEX DATA 256K 


£450-00 £517-50 
£425-00 £488-75 


£75-00 86-25 
£220-00 253-00 


£26-05  £29-95 


£165-00 _£189-75 __ 


Package includes: SINCLAIRE QL, MICROVITEC CUB653, PRINTER & ALL LEADS AND INTERFACES 

WITH EPSON RX80 F/T £778-57 £898-86 WITH CANON PW1156A £889-31 £1026-24 
WITH CANON PW1080A £814-73 £940-44 WITH EPSON DX100 F/T £920-00 £1058-00 
OTHER PRINTERS ON REQUEST 


PRINTERLAND i: 


COMPLETE PACK 
SPECIAL OFFER 


Although mainly mail order, our offices are open 9am to 5-30epm Mon-Fri and 9am to 1pm Saturday. Callers welcome for 
demonstration/collection. DELIVERY-PRINTERS/ MONITORS (SECURICOR) £10-00 Other £1-00 


Unit 27 Estate Buildings, Railway Street, Huddersfield HD4 4JP. Tel. 514105/51 2037 
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. Built into a 
sit beneath 


tial utility disc and a cor prehensive 
manual. : 


The Q-488 is a fully implemente 
IEEE-488 interface which per 
mits the Sinclair QL to com-_ 
municate with scientific _ 
and industrial equip- 
ment offering exten- 
sive help facilities 
plus compre- 
hensive error 
checking. 


[ Index Links 5s Enis DIV k18 
An index for the ‘QL User Guide’, | DLINE k19 
excluding the Psion packages. 

; . EDIT k20 
b = Beginners Guide, | ELSE k26 


k = Keywords, END DEFINE k15k16 
» c = Concepts, END FOR k23 
i= Information, ENDIF k26 


a = Introduction. END REPEAT k49 
ABS k1| END SELECT k53 
ACOS k3| EOF k21 
ACOT k3} ERROR HANDLING c18 
ADATE k1|] ERROR RECOVERY c18 
ALPHA COMPARISONS b47} EXEC AND EXEC_W k20 
ARCS b81| EXIT k21 
ARC ARC_R k2} EXPORT AND IMPORT il 
ARRAYS TWO-DIMENSIONAL b85| EXPRESSIONS c20 
ARRAYS b83 cl 
ARRAYS SLICING b86| FILES b75 
ARRAYS STRINGS b84c49| FILES CHARACTER b105 
ARRAYS AND LOOPS b34| FILES COPY b106 
ARRAY PARAMETERS b109} FILES NUMERIC b105 
ASIN k3| FILES READ b106 
ATAN k3| FILES SEQUENTIAL DATA b105 
AT k2| FILES SET UP DATA b105 
AUTO k3| FILE TYPES c22 
FILL b81k22 
BASIC c2| FILLS k22 
BAUD k4| FLASHING b75 
BEEPING k5|} FLASH k23 
BEEP k4} FORMAT k24 
BINARY DECISIONS b91} FOR . k23 
BLOCK b77k5| FUNCTIONS b98 
BORDERS b17b77k6| FUNCTIONS MATHS c29 
BREAK c3| FUNCTIONS AND PROCEDURES c21 
FUNCTION k15 
CALL k6 
CHANNELS b76c4| GOSUB k25 
CHANNELS AND DEVICES b76| GOTO k25 
CHARACTER SET AND KEYS c5| GRAPHICS c23 
CHR$ k7| GRAPHICS SCALE b78 
CIRCLES AND ELIPSES b79 | GRAPHICS TURTLE c42 
CIRCLE AND CIRCLE_R k7 
CLEAR k8 | IDENTIFIERS VARIABLES & NAMES b47 
CLOCK c9| IDENTIFIERS b12¢25 
CLOSE k8 | IDENTIFIERS STRINGS b24 
CLS b75k9; IDENTIFIERS AND VARIABLES b57 
CODE k9| IF k26 
COERCION c10| IMPORT AND EXPORT il 
COLOURS b16b506b73c11 | INKEY$ k28 
COLOUR PARAMETERS b75 | INK b75 k27 
COMMANDS DIRECT c17| INPUT k28 
COMMUNICATION RS232C c12| INPUT AND OUTPUT b52 
CONTINUE k10| INSTR k29 
COPY AND COPY_N k10 | INTRODUCTION al 
Cos k11| INT k29 
COT k11 
CSIZE b78k12 | JOYSTICK c26 
CURSOR k12 
KEYROW k30 
DATA k13 | KEYS AND CHARACTER SET c5 
DATA TYPES AND VARIABLES cl4| KEYWORD c27 
DATE k14| LAYOUT SIMPLE b73 
DAYS k14 
DECISIONS BINARY b91| LBYTES k31 
DECISIONS MULTIPLE b92| LEN k381 
DECISION MAKING b54| LET k32 
DEFINE k15k16| LINES AND POINTS b78 
DEG k15} LINES AND RECTANGLES bd51 
DELETE k17| LINE COLOURED b16 
DEVICES c15| LINE EDITOR al0 
DEVICES AND CHANNELS b76| LINE LINE_R k32 
-DIMN k18| LINE NUMBER RENUM b28 
DIM k17| LIST k33 
DIRECT COMMAND c17} LN k34 


DIR k19| LOAD k33 
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LOCAL k34| REMARK 
LOG10 k34| RENUM 
LOGIC AND b63| REPEAT 
LOGIC NOT AND BRACKETS b64| REPETITION 
LOGIC OR b63| RESPR 
LOGIC PRIORITIES b65| RESTORE 
LOGIC WHY b63| RETRY 
LOGIC XOR EXC.OR b65| RETURN 
LOOPS b18b52b88| RND 
LOOPS NESTED b90| ROM CARTRIDGE SLOT 
LRUN k35| RUN 
MATHS FUNCTIONS 29| SAVE 
MEMORY MAP c28| SBYTES 
MERGE k36| SCALE 
MICRODRIVES c29 c30a6 al0| SCREEN 
MODES b16k37| SCREEN ORGANISATION 
MODE RELATIVE b79| SCREENOUTPUT 
MOD k36| SCROLLING AND PANNING 
MONITOR ¢31| SCROLL 
MOVE k37| SDATE 
MRUN k35| SELECT 
NETWORK c32a11| SELECT SHORT FORM 
SETTING UP 
NET k38| SEXEC 
NEW k38| SIN 
NEXT k39| SLICING 
NUMERIC EXPRESSION b60 | SORT INSERTION 
NUMERIC FUNCTIONS b58| SORT MDV FILE 
NUMERIC OPERATIONS b59 | SOUND 
SQ 
ON..GOSUB k39| START UP 
ON..GOTO k39 | STATEMENT 
OPEN_IN k40 | STIPPLE CHEQUERBOARD 
OPEN_NEW k40 | STIPPLE OTHER PATTERNS 
OPEN. k40| STOP 
OPERATORS c33 | STRING$ ASSIGNING 
R b78k40 | STRING$ COERCION 
STRING$ COMPARING 
PAN k41| STRING$ COPY SLICE 
PAPER b75k41 | STRING$ IDENTIFIER 
PARAMETERS ARRAY b109 | STRING$ JOINING 
PARAMETERS TYPELESS b102 | STRINGS LENGTHS 
PARAMATERS VALUE b96 | STRINGS NAMES ETC 
PARAMETERS VARIABLE b97 | STRINGS OTHER FUNCTIONS 
PAUSE k42 | STRINGS REPL.SLICE 
PEEK PEEK_W PEEK_L k42 | STRINGS SEARCHING 
PENUP PENDOWN k43 | STRINGS TEXT 
PERIPHERAL EXPANSION c34 | STRING ARRAYS 
PIXEL COORDINATE SYSTEM c36 | STRING COMPARISON 
PI k43 | STRING VARIABLES 
POINTS AND LINES b78 | STRIP 
POINT POINT_R k44 | SUBROUTINES AND PROCEDURES 
POKE POKE_W POKE_L k44 | SUPERBASIC INTRODUCTION 
PRINTERS i2 | SYNTAX DEFINITIONS 
PRINTING SAMPLE b72 
PRINT k45| TAN 
PROCEDURES b99k16 | TECHNIQUES 
PROCEDURES AND FUNCTIONS b96 c21 | THEN 
PROCEDURES AND SUBROUTINES b54 | TUNING IN 
PROCEDURE ANALYSIS b41 | TURN, TURN TO 
PROCEDURE DESIGN b41 | TURTLE GRAPHICS 
PROCEDURE MODULARITY b40 
PROCEDURE PASSING INFORMATION b42 | UNDER 
PROGRAM ¢37 | USING THE QL 
PROGRAM STRUCTURE b88 
VARIABLES 
QLPROGRAMS a8 | VARIABLES AND DATATYPES 
QDOS c38 | VARIABLES FLOATING POINT 
VARIABLES INTEGER 
RS232C COMMUNICATION cl2 | VARIABLES LOGICAL 
RAD k45 | VARIABLES SCOPE OF 
RANDOMISE k46 | VARIABLES STRING 
RANDOM EFFECTS b17 | 
READ k13 | WIDTH 
RECOL k47 | WINDOWS 
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c42 
k49 


k50 
k50 
k52 
b16b73 c43 
b50 
b72 
b82 
k52 
k51 
b92 k53 
b94 
a3 
k54 
k51 
c44 
b106 
b108 
c46 
k54 
c45 
c48 
b74 
b74 
k55 
b67 
b68 
b69 
b67 
b24 
b67 


b78k57 
a5 


b57 
cl4 
b57 
b58 
b61 
b102 
b61 c49 


k57 
b77 c53 


PORT 1 
: JOYSTICK im: CENTRONICS 
Available Now For The e.g. for RAMpack ADAPTORS PRINTER 


SINGLAIR 0 = 7 


e.g. for DISC i/f 
+ 


— 
DOUBLE EXPANDER ' SCREEN DUMP 


}CENTRONICS PRINTER INTERFACE £29.95 inc. 


* 12'month guarantee. 
* Connects QL to any CENTRONICS compatible printer. 
* fully self-contained with 3 metre cable. 
* Plugs directly into SER1 port and directly into printer. 
* Fully compatible with QDOS, SuperBasic, and PSION packages. 


SCREEN DUMP £4.99 inc 


* Copies OL screen image to printer. 
* Supplied on microdrive cartridge. 
* Contains other useful software. 


DOUBLE EXPANDER £39.00 inc. 


* Connects up to 2 expansion cards to QL. 
* Ideal for RAMpack and DISC interface combination. 


JOYSTICK ADAPTOR £4.99 inc. 


*4 Plugs into either CTL1 or CTL2. 
* For use with Atari/Commodore style joysticks. 


frau MOUSE — Call for details. 


Please contact your computer dealer or send your order 


pi] yoseesey 4e;IUIS JO YseWIEPeN pese}s/60/ & $110 


wre 
<a 


—] _ —o— with cheque to: 
MIRACLE SYSTEMS LTD Sinclair and QL 
* “Easily the best game for the QL to date — and the Avondale Workshops are Trade Marks of 
cheapest” PCW Woodland Way SINCLAIR Research Ltd 
Make cheques payable to: Kingswood ACCESS 
BRISTOL BS15 10L orders 
WESTWAY LTD, 24 PRESTON ROAD, Tel: (0272) 603871 x 210 aa welcome 


LYTHAM, LANCASHIRE FY8 5AA 


QL BARGAINS 


* QL COMPUTER — ONLY £379 * ALL SYSTEMS READY TO GO x 
* PRINTERS (INTERFACE/CABLES INCLUDED) « 


BROTHER M1009 — 80 Col. 50 cps. Fully Epson compatable9 = 3250 WATT MAINS FILTER ..........cssscssessseeseeeseene JUST £39 
dot. Full range OP HONMUS esis nis ssSsnccasnn aniisotiesecstecGntcedst secsuctoontaracouns £199 x Provides 4 protected mains sockets with plug 


Trator feed £18 Roll holder £8 Paper rolls £4 ze Avoid Crashes and Damage to the OL’s Components 
MANNESMANN TALLY MT80+— 80 col. 100 cps. Quality print 30 dB Suppression 1 MHeto 30 MHz se 


for letters. Friction and tractOr......cccccccccsessssescssccesseestsessesceres £239 xe 130 Joules Spike S essi 
TAXAN KP810 — 80 col. 160 cps (draft). 27 cps (NLO 23 x 18 vx Top quality and roHOEE ee 
dot). Extra NLO ROMS .......iceeccecececsseccsescecssecessecesssceceeseecese £319 SOFTWARE 
DATAPRODUCTS 8010 (PAPERTIGER) — 80 col. 160 cps (draft). METACOMCO: Reseriblor 
30 cps (NLO36 X 9 dot) -ssessessessesssesseeetessestssssnnnseeeeeeeessnsnsee £459 SINCLAIR: Cash Trader... Tool Kit... £22 
QUEN DATA DAISYWHEEL — 18 cps. 13” printline. 10/12/15 cpi Touch‘N' Go.. Project Planner.. £36 
SITES IACTOROPLONS:....ccssaviessiscsisncaesnseserthuss nersarenersieeaasiieses £289 Entrepreneur. Decision Maker . £36 
Parallel interface... £29 Serial cable.. £11 Integrated Ac Chess (Psion) . £16 

* DIRECT CONNECT MODEM AT LAST «x TALENT: WES... ecsescseecsseee £16 
BRIGHTSTAR WITH ALL SOFTWARE FOR PRESTEL AND DIGITAL: j Super Backgammon...... £13 
BULLETIN BOARDS vo cniessssesncssevegeverrersentsosincasenizpancannenavannead £179 Monitor+Disassembler £16 . 

DISK DRIVES TR COMPUTERS: Payroll Package ...........0..-..04 £59 ACCOUNTS ....eeeescsssssseseseeoe £99 
ALL SYSTEMS 720K FORMATTED PLEASE CALL FOR LATEST SOFTWARE INFORMATION 


COMPUTAMATE disk interface with extra QDOS com- 
WIA OS i cvcssesscexacnavaauvernsuevveresnvecsaneeivrertiihitisancasevesaseevimcstaenvecteed £149 
COMPUTAMATE single 5.25” or 3.5” drive . 
COMPUTAMATE dual 5.25” or 3.5” drive... 


4 cartridges. ........ £8 Transform box for 20 cartridges......... £6 
10 cartridges + Transform box 
£340 105.25” DS/DD disks.......... £23. 103.5" DS/DD disks... 


MICROP disk interface with disk utilities .... £113 ____ MONITORS (CABLES INCLUDED) 

MICROP single 3.5” drive......cecceseeeeeee ...£299 ‘Microvitic 1451/DQ3 colour with swivel stand ............0ce £272 
MICROP dual 3.5” drives........cccccccccsesssscesscceseccesessecsseccscesesees £499 Microvcitec 1451/DQ3............ £254 £25 
INC sesso eereenaceneiieset aerate treet in cscs Please call Philips V7001 18MhZ Green......... eceeeeteeeseteesesseeeseeeeees + £92 


Philips BM7502 20Mhz Green...... ..£102 
i eligi ian £309 Philips BM 7522 2OMAZAMDET ........eeccseseeeeseestsesecseseeeserscens £108 
ESRI £69 ALL MONITORS DISPLAY 85 COLOUMNS 


* Prices include VAT & carriage — next day delivery by Securicor from stock * BETTER SAFE THAN SORRY * 
* PERSONAL HELP AT ALL TIMES FROM QL ADDICT « 


STRONG COMPUTER SYSTEMS 


Bryn Cottage, Peniel, Carmarthen, Dyfed, SA32 7D) 
Telephone: (0267) 231246 for assistance ! ! ! 
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Five more winning entries from our 


Talent Spot competition complete this exhibition 


and make the QL the art gallery of the future. 


On the programming side, 
the diversity of methods is 
astounding. Simple loops 
range alongside multi-level 
recursive control structures. 
Points may be geometrically 
calculated, plotted at random 
or even ‘hand drawn’ from 
information contained within 
data statements (plain or 
encrypted). 

On the pictorial side, styles 
are as varied as those to be 
found ina gallery of 
contemporary art. Here 
minimalist rubs shoulders with 
surrealist. Childlike naifs 
contrast with symmetric 
abstracts. In allits enough to 
make even the most pedogogic 
art critic give up the Tate and 


Talent Spotters-Il 


Ingenuity, artistry and 
economy all combine to 
produce the winning entries in 
our Talent Spot Competition. 
Yet each solution to the 
problem of devising an 
attractive graphics screen in 
no more than 25 lines code is 


quite unique. pick upa QL! 
Thir d Wor Id final frontier, has been 
Nick Flowers effectively encapsulated 


within 25 of lines code. Stars 
appear as randomly generated 
pin-points against a black 
background. 


ween OL User 1985 *xx* 


All that’s missing from this 
screen to an ‘off-world’ 
adventure is the stardate in 
the captain’s log! Space, the 
1 REMark 
2 REMark *##*#* 3rd World by Nick Flowers 

3 FILL O:MODE 4 

4 WINDOW 512,256,0,0:PAPER O:CLS:SCALE 255,0,0 

5 FOR f=0 TO 200: INK RND*7:POINT RND*511,RND*255 

& SCALE 110,-10,100:s:SCALE 512,20,0:s 

7 SCALE 256,30,-40:s:FILL 1:INK 183:CSIZE 3,1 

8 PRINT ," THE": INK S9:CIRCLE 400,250,100:FILL O 

9 AT 3,20: INK 183:PRINT "PLANET": INK 2:FILL 1 

10 AT 1,18:ARC 230,190 TO 230,165,-2 TO 230,140,-2 
11 PRINT "RD":LINE TO 190,140 TO 190,150 

12 LINE TO 220,150:ARC 220,150 TO 220,160,PI 

13 LINE TO @00,160 TO 200,170 TO 220,170 

14 ARC TO 220,180,PI 

15 LINE TO 190,180 TO 190,190 TO 230,190:PAUSE 

16 DEFine PROCedure s:FILL 1:INK 4 

17 CIRCLE 125,124,48: INK 224:POINT 135,76 

18 ARC TO 115,172,-3.1 TO 135,74,-2.1:RETurn 


Helm’s Deep 

Chris Bower 

A virtuoso programming 
performance and a fine 
example of lateral thinking to 
boot. Encrypting his code and 
using charactersfordatathe _| the flow of control within a 
author crams three bits of procedure. 


181 DATA “ducy!em ckigivits PEK 1" UOORUGANTL AiR” ab 
1i2 a=" 09+ 2741 SL; CIA SA+S+9eAE+9 gq" sbb="O1+ 15° 
183 DATA boe"1338 SS] 4SHL SAH [+1313] (H+ +140HA" a 
184 ch" Lyl=+9+Q4SeS+ 190 1SL SSL [+htgtl+1ASt +98" 
185 DATA “AUBU! GOWEhpeDi kk2qubésmon OBSECh | yx" 

186 CATA “KatetbpDte" ,"'dDesad D'k" "Exe", “atl, OAS 
18? DATA "“Héded Ada” Bhi abe" cad dd ga 
188 DATA “td,” "031 SOsst: 1+1+9AcDO VI ickdke+9st+9 "edb 
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information into one, so that 75 
lines of code now become 25. As 
if this isn’t enough, he departs 
from the norm, using turtle 
graphics to draw the detail and 
a SELECT statement to direct 


189 ef="faci! jx" :DATA “4333,1","0 "U8" "AKT" 


116 df=" Spr! [uel reg! Eb Linus 
111 DATA “G13 390e% -e+9 179831"," Sef 
112 DATA "G+" "i+htLAtlad+9 AdtL", 


(S2932A ISGAK | "bad 
+" W C= =hy 
“da 94 aren 


113 DATA")! [YT s]a319H1DS¢RL 141 10TGH E3L0ADI HI "kgh 


en 


‘4 


Lid ff="ept! in sgde"1tkt, fin dpi iyadieegees" 
115 DATA “Fe DHOSHO1+19E1 99) Hx, 139430 


SIQhS99 1G" shh 


{16 hE="49 ."sDATA "+[A371 + 785198398 380300" 
117 DATA "D30" "44-90" "nL 148", "#149-900" "CH 9" 


118 DIM x$<99, 49) 


FOR i=@70 30:READ abhi =zhh 


113 MODE 8: OPEN «scr S12x25600x0:0L5:t=B:d 8 ,O:PAUSE 
24 DEF ine PROCedure déx,a) :LOCal i,b,e 


121 geatd sc=CODE (x5 (x 0) )-34 8 


122 =-2:RETurn : 


= (to) HOD 2:5ELect OM c 


=12870 L4isbea:FOR i=127T0 croebid x 


123 =170 127 sMOVE INT (c/8)XSQRTC1+4) sTURN c#45: ret 


124 c=atd SINK CODE tx tx 5a} ) 


*92:=1T0 L56sPENDOWN:FILL { 


125 d xtc~141 ,Q:PENUP:END SELect :G0 10 121 


126 REMork kk OL User sokkk 


12? REMork 84% Helm's Deep by Chris Bower 


Dr Why 

Hugh McGovern 

Lines on a video display appear 
straight only ifthey are drawn 
along the vertical, horizontal 
or diagonal. Otherwise, the 
computer finds the best fit, 
lighting some dots and leaving 


others unlit. With a single line, 
the result is an unsightly 
ragged edge. With 3600 lines 
radiating from the screen’s 
centre it’s an intricate and 
elaborate (moire) pattern. The 
only problem is that it takes 
ages to draw. 


100 CLEAR: MODE 4:PAPER 0: OVER-1 


110 WINDOW#1 ,512,256,0,0 
120 WINDOW#2,512,254,0,0 


130 PAPER#2,0:CLS#2: PAPER#1 ,O:CLS#1 


140 SCALE 100,0,0 

150 FOR i=0 TO 360STEP .1 
160 x=72+COS(RAD(i))#*76 
170 y=50+SIN(RAD (i) ) #55 
180 INK 2 

190 LINE 72,50 TO x,y 
200 NEXT i 


210 AT 12,30:CSIZE 3,1:INK 4:PRINT"DR. WH Y." 


220 STOP 


230 REMark #### OL User 1985 *### 
240 REMark ###*% Dr Why by Hugh Mcgovern 


Rainbow Castle 
Richard Belsey 

Simplicity is the keyword here. 
The program uses four FOR 
loops to build up a quaint 
fairytale landscape. Careful 


composition provides a partial 
perspective. The code should be 
easily understood as it makes 
use of conventional graphics 
commands and avoids any 
tortuous constructions. 


SMODE S:WINDOW 448,240,32,16:PAPER 5:CLS 
‘BCALE 240,0 ,O8RESTORE : : DATA 7 36,554,53,2,1,5 


FOR r=i TO 8 
READ is INK i 


NEXT r 


AT 11,0:PAPER 4:CLS 2: INK 7,5 


FOR ci TO 7 


2 
3 
4 
S FILL 1:ARC-50, 190-r-#10TO 380, 190-r#10,-PI/3 
6 
7 
8 


- THE PROCS © 


PLANET 


CIRCLE x,y,rsxtr*#2,y,rzFILL 1:CIRCLE xXtr,ytr yr 
NEXT c 

INK 1:FILL 1:CIRCLE 150,50,50,.25,PI/2 

INK 2,0:FILL 1:SCALE 240,-110,-110 

LINE 0,20TO 0,0TO 40,0TO 40,20T0 0,20 

FOR b=-2T0 40 STEP 8 

FILL 1:LINE b,20TO b,23TO b+4,23TO b+4,20 
NEXT ‘bs INK O 

FILL 1:LINE 146,0TO 24,0TO 24,10TO 16,10TO 16,0 
SCALE 240,0,0:FOR t=1 TO 40 

LINE RND(-10TO 110),RND(-10TO 110):FILL 1 

INK 4,0:LINE_R TO 20,0 TO -10,25 TO -10,-25 
LINE_R 2,15 TO 16,0 TO -8,15 TO -8,-15 

INK 2:FILL Os:LINE_R 8,-16 TO 0,-S:FILL 1 


4 INK 4,0:CIRCLE RND(200TO 320) ,RND(-i0TO 110) ,10 


INK 2:FILL O:LINE_R 0,-10 TO O,-S:NEXT t:PAUSE 
REMark *##* QLUser 1985 ##*#* 
REMark ##*#* Rainbow Castle by Richard Belsey 


Rainbow’s End Distinctive title and author’s 
I Picknell name ensure that credit goes 
Adopting a pragmatic where credit’s due. 


approach this entry provides 
allthe elements that a 
commercial software house 
might look for in an 
introductory screen. 


VOnNCUSUNe 


Additionally, a pot of gold at 
the end of the rainbow reflects 
what must be foremost in the 
mind of anybody releasing 
competent software for the QL! 


MODE 8:OPEN #3,scr_5i2x256a0x0:PAPER #3,0:CLS #3 
OPEN#4 , scr _460x250a26x3: PAPER#4 , 2: CLS#4: OVER#4, 1 
BORDER#4 1,7: INK#4,0:STRIP#4, 2: CSIZE#4,3, 1 
z$=‘GRAPHIC ADVENTURE. ‘:FOR i=1 TO 3 

CURSOR #4,80+i,10+i : PRINT #4,2$:END FOR i 
INK#4, 7: CURSOR#4 , 84, 14: PRINT#4,z$:CSIZE#4,2,0 
CURSOR #4,120,40:PRINT#4, ‘By Mr I. Picknell’ 
PAUSE 50 : OPEN #5,scr_350x150a81x75 : RESTORE 
RECOL#5,0,0,0,0,0,0,0,0: BORDER#5,1,7:5=75 


SCALE #5,100,0,0:FILL #5,1:0=174: INK#5,4,7 
LINE#5,0,0TO 0,0T0 0,40TO 0,40TO 0,0: INK#5,1 
LINE#5,0,40TO 174,40TO 174,100TO 0,100TO 0,40 
Cl 25,55,15:Cl 40,85,25:FOR col=i TO 7 

READ c,d:FILL#5,0: INK#5,c,d:FOR g=1 TO 40 

ARC #5,87-s,10T0 87+s,40,-PI:s=s-8E-2:END FOR g 
END FOR col:DATA 2,2,2,6,6,6,4,4,1,1,3,3,2,3 

Cl 158,60,20:Cl 110,70,15 

DEFine PROCedure Cl (x,y,n) 

INK#S,7:@=RND(-2 TO 2):FILL#5,1:FOR i=i TO n 
CIRCLE#S,x+RND(-15 TO 15),y+RND(-5 TO 5) ,5+e 
e@=RND(-2 TO 2):FILL#5,1:END FOR izEND DEFine Cl 
INK#5,6,2:FILL#5,0:a=0:FOR u=22 TO 8 STEP -.5 
a=at+. 25: ARC#S,8+a,u TO 37-a,u ,PI/2:END FOR u 
INK#5,4,7:FILL#5,1:LINE#5,30,8 TO 37,22 TO 37,8 
FILL#5, 1:LINE#5,8,22 TO 16,8 TO 8,8 TO 8,22 
REMark #*##0L User 1985 *#x+ 

REMark #*#* Rainbow's End by I. Picknell 


=) 
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SINCLAIR 
L, SOFTWARE BY 


NIGHT 
NURSE 


An arcade adventure 
with extra large detailed 
graphics. Guide Nurse 
Gray around St Spooks 
Hospital, avoiding randy 
doctors and Paranoid 
Pete, the forensic flu 
bug. Pick up and use 
whatever objects you 
can find in your quest for 
the Golden Prescription. 
Keyboard or joysticks. 


AREA 
RADAR 
CONTROLLER 


A fascinating game and airways. Don't run out of 
simulation. Control up to fuel and avoid collisions. 
69 aircraft in a busy air Very addictive — 

traffic zone which Highly frustrating. 
includes 2 airfields and 9 Keyboard only. 


| Please send me the following products on microdrive cartridge for | 


the QL: 


Night Nurse @ £12.95 
Galactic Invaders & Space Guard @ £14.95 
Area Radar Controller @ £12.95 
Paint Master @ £14.95 
TOTAL 


| Please make cheque or postal order payable to Shadow Games and | 
send to: 
| Shadow Games, 70 Gooseacre, Cheddington, | 


i Near Leighton Buzzard, Beds. 0296 668740 J 


GALACTIC 
INVADERS 
& SPACE 
GUARD 


Unbeatable value, 2 
good arcade games for 
the price of one. 
Keyboard or joystick. 


GALACTIC INVADERS: 
Shoot the aliens with 
your lazer before they 
advance down the 
screen. A very good 
version of an old 
favourite. 


SPACE GUARD: An 
alien attack in 3D. 
Protect your cells from 
the aliens. Destroy them 
before they create the 
deadly pyramids. 


PAINT 
MASTER 


A Graphics Package 

and Mini-Adventure. 
Keyboard of joystick. 

This easy to use and well 
documented collection 

of programmes will 

assist you in creating full 
colour pictures which 

can be reproduced in ; 
your own programmes. 4 
Ideal for adding 

graphics to adventures. 

A mini text and graphic 
adventure is included to 
show how easy it is. 


Three detailed demonstration pictures are also included 
to display some of Paint Master’s capabilities. Facilities 
include: : 


@ Use of all colours, stipples and text 

@ Automatic drawing of many geometric shapes 

@ Superimposed grid for guidance @ Powerful duplicate 
facility which reproduces any object in any size, at any 
position and as many times as you want @ Variable picture 
size © Redraw facility ® Erasure of last command. 


All prices include VAT, postage and packing 


QL PROGRAMMERS. Want someone to market your game? — 
send it to us for assessment; you will not be ripped off. At worst 
it will be returned uncopied, at best you will be offered a 
contract at good royalty rates. 


It has taken over a year for a full 
length arcade game to appear on 
the QL. Ralph Vernon finds out 
whether the waiting has been 
worthwhile. 


“BJ has been caught on a spy mission 
by Drunx — the ruler of the 8th stellar 
system. Now BJ has to find 395 
diamonds which are beneath the 
planet. The journey can be deadly so 
take care!” __ 

These enigmatic instructions are 
all you get when it comes to playing 
the first all-action arcade game for 
the QL. Who is BJ? What’s the 
Planet? Where on earth is Drunx? 
None of these questions are ever 
answered. Indeed, even the name of 
the game is in doubt for no sooner 
does one title screen come up intro- 
ducing the game as QL Caverns from 
QCumber than another takes its 
place proudly announcing the same 
game to be BJ in Space from Sinclair 
Research. The fact that all the action 
takes place underground is, of course, 
immaterial. So too is the author’s 


L CAVERN 


a joystick or the cursor keys. The 
object is to guide the diminuitive 
figure of BJ through a number of 
interconnecting underground cham- 
bers collecting diamonds as you go. 
Simple, you may think. Not so, 
however, as there are around fifty 
different locations to visit each 
affording its own unique screen full of 
deadly obstacles. Sticks of TNT litter 
the floors, razor sharp stalactites drip 
from the ceilings, homicidal spiders 
patrol the walkways and psychotic 


Seeseeee 


o7 NON D: 


ee? @ 


can also pick up rainbow coloured 
parachutes. Whilst these do not reg- 
ister on the scoreboard a constant 
tally is kept of them alongside the 
number of diamonds recovered and 
lives remaining. 

Animation in the game is fluid and 
the graphics make full use of the QL’s 
8 colour pallet. Furthermore, despite 
the large number of screens, each one 


“Sticks of TNT litter the floor, razor sharp stalactites drip from the 


ceilings, homicidal spiders patrol the walkways.” 


TV sets careen across the skies. All 
are to be avoided. 

As for the diamonds themselves, 
these are usually located at the most 
inaccessible points on the screen and 
much of the game’s enjoyment comes 
from devising a safe route to them. 
Unaided BJ is capable of crawling, 
walking or jumping over variety of 
different coloured terrains. However, 
more often than not to reach a 
diamond he will need to climb a 
staircase, hitch a lift on a raft, jump 


“There are around 50 different locations to visit each affording its own 


unique screen full of deadly obstacles.” 


name. Are we really expected to 
believe that the game was written by 
a certain Janko Mrsic-Flogel? Or is 
this yet another elaborate anagram? 
Only the Evil Crialenis could tell us 
and he was nowhere to be found. 
Whatever its pedigree, QL Caverns 
is fun. The game may be played using 


off a trampoline, put on a jet pack or 
even teleport to some far flung cham- 
ber. Most of these operations require 
split second timing and good co- 
ordination. In some instances it is 
even necessary to sacrifice a life. This 
may be recovered by collecting a 
flashing heart. On your journey you 


reflects an almost fanatical attention 
to detail. The sprites though con- 
siderably smaller than those used in 
Psion’s chess are attractive and clear- 
ly distinguishable. Screen layouts are 
often planned with a visual quip in 
mind. In one, for example, the obsta- 
cles may be arranged so as to mimic 
an arcade classic such as QBert, 
whilst in another they may combine 
to form a giant QL logo. Whatever 
the theme, it is never repeated else- 
where. 

Flashing arrows strategically lo- 
cated at the extremities of each 
screen indicate possible routes to 
adjoining locations. Moving BJ 
through one of these causes a new 
screen to instantly replace the ex- 
isting one. On the whole, this device 
works well. It preserves the game’s 
continuity and provides a workable 
alternative to the more elegant 
method of panning sideways which, 
with a massive 32K of screen to 
manipulate and no hardware scroll- 
ing on the QL, would have slowed the 
game to a crawl. 

Overall then, QL Cavern (alias BJ 
in Space) shows considerable prom- 
ise. As 4 game it is easy to play and 
yet at the same time engrossing and 
demanding. Furthermore, whilst the 
‘cavern flight’ concept upon which it 
is based is not entirely original, the 
program’s size (79K of machine code) 
and its complexity makes it the 
definitive implementation. A few 
more games like this and the QL 
could become the Rolls Royce 
amongst games playing machines. In 
the meantime, a game of this quality 
can be taken as a sure indicator that 
the 68000 games programmer has, at 
long last, come of age. 


£12.95 — Available W H Smiths and leading 
computer stores or Sinclair Research 
direct. 
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NEW SYSTEMS PACKAGES FOR QL 
NOW WITH 
QDOS COMPATIBLE INTERFACE & DISK DRIVE 


FRUSTRATED? pDon’T BE. OUR SYSTEMS DO WORK 


pao eenmers m WE GIVE FULL TECHNICAL ADVICE 
NO JUST TESTED ALL SET UP EVEN FIT & AFTER SALES SUPPORT. 
INTERFACE PLUG IN BEFORE CABLES READY kee CAN YOU GET THIS KIND OF SERVICE 
| PROBLEMS J AND GO! [| DESPATCH Hf SUPPLIED US cates |v THE HIGH STREET? 


“Z" GUARD — Tidy up systems & SPIKES 1 way — £19.95 
i — in 1 meat main socket block with built in 
filter and master switch 4 way — £31.95 


PRINTER & MONITOR PACKAGE DEALS + OL OPTION 


PRINTER MICROVITEC PHILIPS 

CHOICE WITH COLOUR OR GREEN/AMBER 

(Standard) MONITOR MONITOR 

Smith Corona Fastext 80 £445 £295 Printers are all supplied 
Brother M1009 £445 £295 with RS232C interface. 
Epson RX80F/T+ £549 £399 Monitors display full 
Epson FX80 £725 £590 85 columns of text. 
Epson FX100 £869 £735 

Canon PW1080A NLO £649 £495 WE MAKE IT ALL 
Daisystep 2000 £599 £445 COMPATIBLE 
Daisy Junior £525 £385 

Brother HR15 £715 £569 ‘Help Sheet’ supplied 
Epson DX100 £745 £590 FREE with all printers. 
Epson JX80 COLOUR £895 


(Superb with OL) SINCLAIR QL SUPPLIED WITH ANY SYSTEM — £389 


NOW ADD DISK DRIVES! 


Drive System including 


MONITOR FOR OL 
Factory set for full 


PSU & Disk Interface Capacity 85 column display 
Computamate Single/Dual (Formatted) Price 
Teac 5.25” or 3.5” 40/80 Single 720K COLOUR 
Teac 5.25" or 3.5” 40/80 Dual 2 x 720K Price . Microvitec 1451D03 £275 
‘Q’ Disk Interface alone PLEASE 
Micro P 3.5” 720K 2 x 720K RING MONOCHROME 
Micro P interface alone £110 FOR Philips 
Disks 3.5" box of 10 £52 PACKAGE —BM7502Green £92 
Disks 5.25” box of 10 £20 DEAL BM7522 Amber £95 
Printer cables for QL (Serial) PRICING 
MEMORY EXPANSIONS 
£14! 

2 and 4 slot expanders 64K, 128K, 256K, 512K memory = Seece REZaEe LP £30 
expansion cards E 

pson RS232C 2K £65 
RING FOR DETAILS £9.20 Miracle Systems I/F £29.95 


Epson, Brother, Canon, Shinwa etc. 


ALL PRICES INCLUDE VAT 


FOR EXPRESS DELIVERY ADD £10 (SYSTEMS/MONITORS/DRIVES) 
ACCESSORIES: P&P £2 


ZEAL MARKETING LIMITED 


VANGUARD TRADING ESTATE, STORFORTH LANE, 
CHESTERFIELD, S40 2TZ 
| Telephone: 0246 208555 Telex: 547697 
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NEW — FROM TALENT! 


GRAPHIQL 


Create superb colour pictures on your QL with TALENT’s outstanding new graphics package. It’s supplied 
on two microdrives — the first holds the master program and a printer dump utility, the second, three 
demonstration pictures. Backup copies can be made. GRAPHIQL comes with a detailed, clearly-written 
instruction manual, outlining the program's many facilities. 


Features include: 


Freehand drawing, 8 colours, optional flash 
Rubber banding, rubber boxes, even rubber ~ 
circles and ellipses 

Variable size texture definition 

Doodle pad 

Colour and texture fill of any shaped area 
User-definable paint brush — any colour 

or width 


Colour list for full colour control 
Re-colour facility 

Magnification with panning 

Mirroring and rotation of blocks of screen 
Air-brush effect 

On-line ‘help’ facility 

Full file-store access 

Printer dump utility 


Text can be included in pictures. The characters can be single or double height with flash and underline. 


GRAPHIOL pictures can be put into BASIC or assembler programs with the sample routines provided. 
Available in March by mail order direct from: 


£34.95 . aNd ti pea i. iT 
50 t & ki 
+ Sop postage & packing a7 ck 


COMPUTER SYSTEMS 


Curran Building, 
101 St. James Road, Glasgow G4 ONS 
Tel: 041-552 2128 (24-hour Credit Card Hot-Line) 
SOFTWARE FROM SCOTLAND 


DISK DRIVES, PRINTERS & RAM CARDS 


DELIVERY AND VAT INCLUDED IN ALL OUR PRICES... . 
NO HIDDEN EXTRA COSTS 

NEW...MICRO P’s MP165 Near letter quality Centronics dot matrix printer 
165cps (9 x 9 matrix), fast 75cps NLQ (17 x 17 matrix), friction AND tractor feed, 
2k buffer as standard, Epson compatible, bi-directional, plus many other 
features only £285 
NEW...SHINWA CPA80/P Centronics dot matrix printer 
100 characters per second, bi-directional, friction AND tractor feed, 2k buffer as 


AD INDEX 


Business Micros and Comms 
Ltd 


Four Systems 
Kempston Micros 


Medic Data Systems Ltd 
Medic Data Systems 


Metacomco 


' Miracle Systems Ltd 
Modem House Ltd 


Printerland 


Shadowsoft 

Silicon Express 
Simplex Data Ltd 
Strong Computers Ltd 


Talent Computers 
Talent Software 
Talent Software 


Viglen Computers Ltd 
Viglen Computers Ltd 


Watford Electronics 
Westway 


Zeal marketing 


A PROGRAMME OF LINKED COURSES. 


INTRODUCTORY & ADVANCED APPLICATIONS. 


044 282 7302 Freepost, Tring, Herts. HP23 4BR. 


standsard, up to 142 chars per line, Epson compatible, plus many other 

features only £219 
NEW... MICRO P’s DAISY JUNIOR Centronics daisywheel printer 

14 characters per second, Qume compatible, friction AND pin feed, 
bi-directional, 10 inch platen, 7k buffer as standard, multi-copy, auto underline, 
plus many other features only £249 
NEW...MIRACLE SYSTEMS QL to Centronics printer interface 

psion, Qdos, and SuperBasic compatible, self-contained, 3 metre cable, with 12 
months guarantee only £28.95 
SPECIAL OFFERS... PRINTER COMPLETE WITH QL TO CENTRONICS 
INTERFACE 

Daisy Junior... £269.95 CAP80P.... £239.95 MP165...£305.95 
NEW...PCML(QLPLUS) Ram Cards 


Boxed, 80% faster than QL’s memory, no extra power supply needed, totally 
compatible with anay QL expansion system. 
64k... £84.50 128k ...£124.50 256k...£166.50 512k... £278.50 


NEW...MIRACLE SYSTEMS Remodelled double expander 
Connects up to 2 expansion units (eg a Ram card AND a disk interface). Please 
phone or write for further details. 
NEW...MICROP’s Disk drives developed with Sinclair Research 
THE high speed drive and interface for the QL (loads QUILL in 6 secs), 720k — 
3.5in single drive, 7 extra commands, single/double sided — 80 tracks, with 
power supply, includes utilities disk and Rom, microdrive emulator. 
Complete with interface...£264 Seconddrive...£149 Dualsystem...£409 
Box of 10 3.5in DS/DD disks . . . £54 
SPECIAL OFFER: INTERFACE + DRIVE 1 + DRIVE2 + 10 DISKS £458 
Box of 10 5.25in DS/DD disks (96TPI) .. . £28 
WRITE OR PHONE FOR OUR LATEST SPECIAL OFFER PRICES 


PLEASE SEND CHEQUES/MONEY ORDERS TO: 
BUSINESS MICROS & COMMUNICATIONS LTD 
(MAIL ORDER DEPT) 

18 OSWALD ST., MILLFIELD, 
- SUNDERLAND SR4 6HN. 
Tel: (0783) 674944 
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Each month, for a trial period, this column will contain details of readers’ 
programs that we are able to offer on microdrive. 

In return for a small administration charge (per program — including a 
royalty for the author), we will copy onto blank microdrives any or all of the 
featured programs. 

Each program will be a direct copy of the published listing, or an extended 
version of that listing where the program in question was too long to print in 
full (programs for which an abridged version has been published are marked 


~ with an asterisk). 


It must be stressed that we are not selling the software itself, nor craig 
any guarantee that it performs any particular function (though we do check 
every program that is to appear in QL User), we are merely offering a service 
to readers who wish to obtain QL User programs on drive rather than by 
typing them in straight from the page. 


HOW TO ORDER 


Listed below are programs which have appeared as listings inside QL User. 

To the right of each program entry is a small box, which you should mark 
with a bold cross if you want to order that program. 

Once you have put a cross next to all the programs you wish to have copied 
onto microdrive, simply complete the rest of the order form and send it along 
with your PO/cheque AND BLANK FORMATTED DRIVE to: 

QL User, MICRODRIVE EXCHANGE, Priory Court, 

30-32 Farringdon Lane, EC1R- BAU. 
If you wish us to supply the drive, please add an extra a 50 for every drive 
required and mark the order form appropriately. 

Please allow 28 days for delivery. 


Author Language Program Name Price Issue Size 
] Giles Todd (B) DIY Assembler £5.00 Jun/Mar 120 
i Converts Assembler source into m/c object code 
Richard Cross (MB) Function Key Definer £2.00 May 20 
| Programmable function keys just like on the BBC 
] Rob Miles (B) 3Dscapes £1.00 May 150 
| Isometric Perspective representations of 3D Surfaces 
Shergold & Tose (B) * Golf £2.00 May 35 
| From fairway to green on 50 enrerent courses of varying difficulty 
Williams & Holliday (AQ) Paladin £5.00 Apr 700 
The basis of our games programming series — a space invaders type game written entirely machine 
code 
Richard Cross (MB) Sprite Animation £2.00 Apr 50 
A subtle blend of machine code and SuperBasic that produces a versatile sprite designer and high 
| speed animator 
| Steve Deary (B) Pacman £1.00 Mar 20 
] A reasonably fast rendition of the famous arcade favourite 
Adam Denning (AO) File Probe £1.00 Mar 201 


E::. month this directory is 
Boosie with new 
products and information. 
Ifyou or your company are 
currently manufacturing 
hardware or supplying QL 


HARDWARE 


Monitors 


Citadel Products Ltd 
01-951 1848 

MBS Data Efficiency 
0442 60155 

Kaga, Sinclair Vision 
Microvitec PLC 
0274390011 

Microworld Computer & Video 
Centre 

0273 671863 

Microvitec, Philips, Vision 
Opus Supplies Ltd 
01701 8668 

JVC 

Printerland 

0484 514105/687875 
Strong Computer Systems 
0267 231246 

Microvitec, Philips 
Technomatic Ltd 
012081177 

Microvitec, Kaga 


| Name 
I Address. 


No of programs ordered Totalcost £............ 


Total sectors 
(max 200 per drive) 


No of drives sent 


No of drives required @ £2.50each £............ 


Plus postage & packing £ ; 


Sub total £............ 
Subscribers reduction *(if applicable) @ —10% €£............ 
Add VAT @ 15% £............ 


TOTALTOBESENT £............ 


Please copy onto microdrive the programs above which I have indicated with 
a cross. | enclose a cheque/PO to the value of £ (made payable to 
QL User). | understand that QL User only undertakes to SUPPLY these 
programs (copied onto microdrive) and accepts no liability for their 
operation as defined by the author. Neither can QL User supply additional 
information about any of the listings other than that originally printed in the 
] magazine any article reprints required must be ordered and paid for 
] separately at £1 each inclusive of post and packing). 

J “Subscribers to QL User may deduct 10% off the Sub Total on their orders. 
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Machine code routine utility to dump the contents of a file to any device in hex. Reveals any hidden ig] a 
control characters for all to see Viglen Computer Supplies 
I at User (B) Tape Utility £3.00 Feb 200 a sabes : 
] File utilities which permit selective back-ups and deletions — in excess of a hundred files may be ea arketing Ltd 
| manipulated 0246 208555 
Andy Carmicheal __(B) Hi-tech Sort £1.00 Feb 100 4 | | Microvitec, Philips 
] Highly efficient recursive sort based on C Hoare’s famous Quicksort method Pri n ters 
] Pd Smith (B) * DIY Adventure £1.00 Feb 600 
A skeleton framework where you simply have to slot in the details to create your bespoke adventure Datasystems 
| Mike Newport (B) Psuedo Editor £1.00 Feb 15 014821711 
An ingenious half-way house between a full screen editor and the QL’s somewhat primitive line editor Star 
Adam Denning (AO) Multitasking £2.00 Dec/an 600 MicroPeripherals 
Two digital clock programs and one alarm. All will happily multitask on the QL 0256 473232 
] B = SuperBasic, AO = Assembler + Object Code (ready to run), MB = Machine Code + Canon 
| Basic loader Microworld 


0293 545630/0273 671863 

Kaga, Epson, Smith Corona, 
Shinwa MicroPeripheral, Quen- 
data, Juki 

Printerland 

0484 514105/687875 

Epson, Brother, Kaga, Canon, Juki 
Strong Computer Systems 

0267 231246 

Brother, Shinwa, Epson, Kaga, 
Mannesman Tally, Canon, 
Daisystep, Smith Corona 
Technomatic Ltd 

01-208 1177 

Epson, Kaga, Juki, Brother 
Twickenham Computer Centre 
01-891 4991 


| Kaga, Ensign, Canon 


Viglen Computer Supplies 

01 843 9903 

Zeal Marketing Ltd 

0246 208555 

Brother, Epson, Canon, Daisystep 


Interfaces 


Cambridge Systems 
Technology 


software and would like to be 
included within this directory, 
just send details to ‘QL User 
Reference Chart’, Dept SE, QL 
User, Priory Court, 
Farringdon Lane, EC1R3AU. 


0223 323302 

Care Electronics 

0923 777155 

Computamate Data Products 
0782811711 

Miracle Systems Ltd 

0272 603871 

Printerland 

0484 514105/687875 

Sigma Research 

231 Coldhams Lane, Cambridge 
Technology Research Ltd 


0784 63547 
Transform Ltd 


089 283 4783 
Zeal Marketing Ltd 
0246 208555 


Disk Systems 


Computamate Data Products 
0782 811711 

Compware 

0270 582301 

CST 

0223 323302 

Medic Data Systems Ltd 
0256 460748 
MicroPeripherals 

0256 473232 

Printerland 

0484 514105/687875 

Quest 

04215 66488 

Silicon Express 
0533374917 

Strong Computer Systems 
0267 231246 

Zeal Marketing Ltd 

0246 208555 


Modems 


A>Line Computer Systems 
0533 778724 

Commpak Data 

13 Beechwood Road, Uplands, 
Swansea 

Microperipherals 

0256 473232 

Modem House 

0392 69295 

Strong Computer Systems 
0267 231246 

Tandata 

06845 68421 

(OEL) 


Memory Expansion 


Eprom Services 

0532 667183 

Medic Data Systems Ltd 
0256 460748 

PCMLLtd 

0372 67282/68631 

QL + RAM cards 

Quest 

04215 66488 


Simplex Data Ltd 
01575 7531 


Extras 


A>Line Computer Systems 


0533 778724 

4-way mains filter/adapter 
Action Computer Supplies 
01 903 3291 

Mains spike eliminator 
Classified Product & Services 
0930 52204 . 
Leads etc. 

Computer Supplies 

146 Church Rd, Boston, Lincs 
Joysticks 

Eidersoft 

014781291 

Quicksoft II Joystick 

4Systems 

68 Foxwood Close, Feltham, Middx 
Cartridges & box 
Management Science Ltd 

17 West Hill, London SW18 

QL case 

Power International 

0705 756715 

Mains spike eliminator 

Sigma Research 

231 Coldhams Lane, Cambridge 
Joystick 

Sinclair Research 

0276 685311 

Transform Ltd 

089 283 4783 

QL dust cover, microdrive storage 
box, RS232 lead 

Viglen Computer Supplies 
01-843 9903 

Printer stand 

Voltmace Ltd 

Park Drive, Baldock, Herts 
Zeal Marketing Ltd 

0246 208555 

Printer peripherals 


_ SOFTWARE _ 


Utility Programs 
Accountancy Software 
Sinclair Research 

QL Cash Trader 

Adder 

0223 277050 

Q-Doctor, Assembler 

Bedsoft 

30 Lansdown Rd, Bedford, Beds 
Screen Editor 

Computer One 

0223 86216 

Pascal, Forth, Assembler, Typing 
Tutor, Monitor 

Co-op Soft Ltd 

0272 22223 

Civil/Structural Engineering 
DA Bandoo 

81 Mount Pleasant, Wembley 
Assembler, Screen Editor 
Data Management 

0904 760351 

SBUTIL, Mbackup, Terminal, 
Chargen, SBextras, FM 
Digital Precision 

01527 5493 

QL Super Sprite Generator, Games 
Designer, Monitor + 
Dissassembler 

Flite Software Ltd 

010 353 7423023 

Equate (maths package) 

GST Computer Systems 
0954 81991 

QL Assembler, 68K/OS 


Harcourt 

Sinclair Research 

QL Touch ‘n’ Go 

Hisoft 

0793 26616 

MonQL 

J&D Software 

3 Alfred Rd, Lowton, Warrington 
Metacomco 

0272 428781 

Assembler, BCPL, Lisp 
MicroAPL 

01622 0395 

Micrologic Consultants Ltd 
57 Station Rd 

Micro Processor Engineering 
Ltd 

21 Hanley Rd, Southwater, 
Horsham, E Sussex 

QL Terminator Emulator 

PCS 

8 Oak Grove Way, Bridgewater, 
Somerset 

PCS Utilities 

Portfolio Software 

PO Box No 15, London SW11 
Positron Computing 

0554 759624 

Hi-res screen dump 
Printerland 

0484 514105/687875 
Metacomco Assembler 

Psion 

01723 9408/0553 

Quill, Abacus, Easel, Archive 
QCode 

42 Swinburne Rd, Abingdon, Oxon 
Terminal Emulation, 68000 
Assembler/Editor 

QJump 

Sinclair Research 

QL Monitor, QL Toolkit 

QSoft 

01499 7417 

Agenda 

Quantum Mechanics 

5 Twineham Green, London N12 
Qspell 

Quest 

04215 66488 

Business Accounts 

Saltgrade Software 

31 Royal Terrace, Edinburgh EH7 
File Manager, File Editor 
Sigma Research 

231 Coldhams Lane, Cambridge 
Sketchpad 

Strong Computer Systems 
0267 231246 

Super Plant Software 

097 231246 

Plant & gardening software 

TR Computer Systems 

093 924621 

QL Payroll 

TDI Software Ltd 

0272 742796 

USCD Pascal, USCD Fortran 77, 
Advanced Development Toolkit, 
USCD P System, USCD Prolog 
TR Computer Systems 

093 824621 

QL Payroll 

Triptych 

Sinclair Research 

QL Decision Maker, QL 
Entrepreneur, QL Project Planner 
WD Software 

0534 81392 


Games 


Bedsoft : 
30 Lansdown Rd, Bedford, Beds 
Gambler, Beat the Clock 


Blain Software 

8 Berkeley Close, Staines, Middx 
Merry Muncher, Fire Tower, 
Advance Invaders 
Brainstorm 

4 Lindsey Close, Cramlington 
Westminster Palace 

CP Software 

10 Alexandra Rd, Harrogate 
Bridge Player 

Digital Precision 

01527 5493 

QL Super Backgammon 
Eidersoft 

014781291 

QL Art 

Equate 

2 Ffordd Denwyn, Penyffordd, 
Chester ; 
Solar Invaders, Wall Breaker, 
Draughts, Mind Your Path, 
Statistical Averages, Calendar 
Games Workshop 

01965 3713 

D-Day 

Intersoft 

7 Richmond Rd, Exeter, Devon 
Executive Adventure 

New Horizon Software 
Fourwinds, Cwn Lane, 
Rogerstone, Gwent 

Pacman, QBERT, Gold 
Peak Electronics 

32 Clifton Ave, Hartlepool, 
Cleveland 

QL Colour Quest 
Printerland 

0484 513105/687875 

Psion Chess 

Psion 

01723 9408 

Psion Chess 

Rodent Software 

3 Brookend Cres, Henley-in- 
Arden, W Mids 

Adventure Writer, QL Artist,2 x 7 
Games cartridges 

S&B Software 

20 St Nicholas St, Diss, Norfold 
Fantasia Adventure 
Shadowsoft 

0296 669740 

Area Radar Controller, Strategy 
Snowsoft 

6 Bousefield Cres, Newton 
Aycliffe, Durham 

Hungry Harry in the Haunted 
House 

Sinclair Research 

0276 685311 

Psion Chess 

Summit Software 

36 Wood Cres, Rogerstone, 
Newport, Gwent 

Frogger, Dungeon 

Swansoft 

164 Vicarage Rd, Morriston, 
Swansea 

Space Trek 

Talent Computer Systems 
041 552 2128 

ZKUL, WEST, GraphiQL 
WD Software 

Hilltop, St Marys, Jersey 

WD Morse Tutor 


BOOKS 


Publishers 


Adder 

0223 277050 
Century 
014344241 


Collins 

01493 7070 
Duckworth 

01485 3484 

Ellis Horwood Ltd 
0284 789942 
Granada 

01493 7070 
Hutchinson 
013872811 
Interface 

9-11 Kensington High St, London 
Ws 

McGraw Hill 

0628 23431 
MicroPress 

0892 39606 
Melbourne House 
01940 6064 
Prentice Hall 
0442 58531 
Sunshine 

01437 4343 


Book Titles 


Quill, Easel, Archive and 
Abacus on the Sinclair QL 
McCallum Varey 

(Sunshine £6.95) 

Introduction to Simulation 
Techniques on the Sinclair QL 
Cochrane 

(Sunshine £6.95) 

Mathematics on the Sinclair QL 
Kosniowski 

(Sunshine £6.95) 
Programming in C 

Traister 

(Prentice/Hall £19.50) 

Getting To Know Your Sinclair 
QL 

Morris 

(Duckworth £7.95) 

The C Programming Language 
Kernighan & Ritchie 
(Prentice/Hall £22.95) 
Learning to Program in C 
Plum 

(Prentice/Hall £15.95) 

Logic, Algebra & Databases 
Gray 

(Ellis Horwood £9.95 p/back, 
£22.95 h/back) 

68000 Assembly Language 
Programming 

Kane, Hawkins, Levanthal 
(Osborne/McGraw Hill £19.50) 
QL Gamesmaster 

Ewbank, James & Gee 

(Collins £7.95) 

Get More from the Epson 
Printer 

Curran 

(Collins £7.95) 

A QL Compendium 

Gandoff & Kinge 

(Addison Wesley £7.95) 

QL Handbook 

Hartnell 

(Interface £7.95) 

Professional & Business Uses 
of the QL 

Lewis 

(Collins £7.95) 

QL Abacus 

Spottiswoode 

(Century £8.95) 

BASIC Programming on the QL 
Cryer & Cryer 

(Prentice Hall £7.95) 

Quick QL Machine Language 
Giles 

(Melbourne House £7.95) 
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_ Nowyoucancreate new 


- dimensions in Computer Graphics. 


sao) 


Create superb colour pictures on your 

QL with TALENT’s outstanding new graphics 
package. It’s supplied on two microdrives — 
the first holds the master program and a 
printer dump utility, the second, three 
demonstration pictures. Backup copies can 
be made. GRAPHIQL comes with a detailed, 
clearly-written 60 page instruction manual, 
outlining the program’s many facilities. 


@ Freehand drawing, 8 colours, optional flash 

® Rubber banding, rubber boxes, even rubber 

circles and ellipses ® Variable size texture 
“defigition @ Doodle pad ap 

@ Colour and texture fill . 12 

of any shaped area 


VAN * 


ENT 


COMPLI TEAS YereEMs 


@ User definable paint brush — any colour 

or width @ Colour list for full control @ Re- 
colour facility @ Magnification with panning 

@ Mirroring and rotation of blocks of screen 
@ Air-brush effect © On-line ‘help’ facility 

® Full file-store access @ Printer dump utility. 


Text can be included in pictures. The 
characters can be single or double height 
with flash and underline. GRAPHIQL pictures 
can be put into BASIC or assembler programs 
with the sample routines provided. 

Available from selected branches of 
Boots & WH Smiths. 


£34.95 + 50p 
postage & packing 


Curran Building, 101 St James Road, Glasgow G4 ONS. Tel: 041-552 2128 (24 hour credit card hot-line) Software from Scotland 
QL and Microdrive are registered trade marks of Sinclair Research Ltd. 


